Question

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

Answer 1

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.