Запустить программу на выполнение. найти и исправить синтаксические ошибки. введите элементы массива (-1, 5, 45, 0, 2). program massiv_1a; var a: array [1..20] of integer i,k: intege begin write('введите количество элементов массива не более 20: '); read(k); for i: =1 to k do read(a) end.

sanzik2005 sanzik2005    1   19.03.2019 15:20    0

Ответы
omg15 omg15  26.05.2020 04:08
Var
 a:Array [1..20] Of Integer;
i:Integer;
k:Integer;
Begin 
write('Введите количество элементов массива не более 20:'); 
Read(k); 
For i:=1 To k Do 
      Read(a[i]);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика