Регистрация
Sobennikovoleg
05.01.2021 21:28
Информатика
Есть ответ 👍

Где ошибка в этом коде? var n: array [2..5] of integer;
var a: array [1..20] of integer;
var i: integer;
begin

for i:=1 to 20 do
readln(a[i] );
if a[i] = 2 then n[2]:=n[2]+1;
if a[i] = 3 then n[3]:=n[3]+1;
if a[i] = 4 then n[4]:=n[4]+1;
if a[i] = 5 then n[5]:=n[5]+1;
writeln (n[2], n[3], n[4], n[5]);
end.
Выдает 0001 или подобные числа, что я сделал не так?

163
327
Посмотреть ответы 1

Ответы на вопрос:

АлинькийЦветочок5
АлинькийЦветочок5
4,5(62 оценок)
Var a: array[0..4,0..4] of integer; i,j,m: integer; begin for i: =0 to 4 do begin  m: =i; for j: =0 to 4 do begin    a[i,j]: = m;   write(a[i,j]: 2);   m: =m +1;   end;   writeln;   end;   end.

Популярно: Информатика