Question

Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определённых в заданиях 1 и 2.

Answer 1

таратата
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;
тратата