ТутРешу.Ру

Запустить программу на выполнение

Задание:

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




Знаете другой ответ?

Отправить свой ответ