Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определённых в заданиях 1 и 2.
Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определённых в заданиях 1 и 2.
Гость
Ответ(ы) на вопрос:
Гостьтаратата
USES crt;
var A: array[1..5] of real;
q: integer;
BEGIN
clrscr;
for q:=q to 12 do
begin
write ( 'A ',1:2, '] = ') ;
readln(A[q])
end;
тратата
Не нашли ответ?
Похожие вопросы