Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определённых в заданиях 1 и 2.
Ответы
Ответ дал:
0
таратата
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;
тратата
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;
тратата
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад