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

Информатика

Гурий

9 октября, 10:17

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

+3

Ответы (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.