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