Запустить программу на выполнение. Найти и исправить синтаксические ошибки. Введите элементы массива (-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.

1

Ответы и объяснения

2015-07-30T17:43:13+03:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.