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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.