Var f:array [1..19] of real;
i,k:integer;
begin
k:=0;
for i:=1 to 19 do begin
Write('f[',i ,']=');
readln(f[i]);
if f[i]=6 then k:=k+1;
end;
Writeln('Количество шестерок: ',k);
readln;
end.
Читать и получать дополнительные знания) особенно если книга хорошая)
Правильно или нет не знаю
const b:array[1..5] of integer = (3, 13, 8, 62, 104);
Вроде всё верно.
Каких чисел?Больше подробностей,так не как не вычеслить...