Pascal!

[YuZuK]

У даному одновимірному масиві замінити всі мінімальні елементи нулями. Використати тип даних файл(текстовий) для зчитування даних

 

[nayke]

У даному одновимірному масиві замінити всі мінімальні елементи нулями. Використати тип даних файл(текстовий) для зчитування даних

определение минимального элемента

for i := 1 to n do
if a[i]<min then min:=a[i];

замена нулями

for i := 1 to n do
if a[i]=min then a[i]:=0;

что там "Використати" я не понял

 

[hosm]

что там "Використати" я не понял

Использовать тип данных файл (текcтовый) для считывания данных
т.е.
var f:text;

 

[YuZuK]

Спасибо большое!!!

 

[inna1990]

uses crt;
var count:array[char] of integer;
currStr:string; str: string;
i:integer;
procedure Func;
var c:char;
begin
writeln(currStr);
for c:=#0 to #255 do
if count[c]>0 then begin
dec(count[c]);
currstr:=currstr+c;
func; delete(currStr,length(currStr),1);
Inc(Count[c]);
end
end;
BEGIN
clrscr;
write('vvedite stroku:');
readln(str);
for i:=1 to Length(str) do
inc(count[str[i]]);
currstr:='';
func;
readln;
END.

объясните построчно пожалуйста, что делает задача.