Задание:
Запустить программу на выполнение. Найти и исправить синтаксические ошибки. Введите элементы массива (-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.
Решение:
Program Massiv_1a; Var i,k,a: Integer; Beginwrite (' âåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà íå áîëåå 20: '); Read (k); For i: =1 to k DoReadln (a); End.
Знаете другой ответ?