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

Question

Информатика

Бена

29 августа, 06:40

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

+2

Ответы (1)

Знаете ответ?

Хриса · 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.