НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ: 1) Разработайте алгоритм для ввода в память ЭВМ линейной таблицы В, состоящей из 8 элементов вещественного типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для вв...

{НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ: 1) Разработайте алгоритм для ввода в память ЭВМ линейной таблицы В,  состоящей из 8 элементов вещественного типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С  состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д  состоящего из 10 элементов целого типа.  Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса} var     B: array [1..10] of real;     C: array [1..10] of integer;     D: array [1..10] of integer;     i:integer; begin     writeln('Введите 8 элементов В');     read(b[1], b[2], b[3], b[4], b[5], b[6], b[7], b[8]);          writeln('Введите 7 элементов C');     for i := 1 to 7 do read(C[i]);          for i := 1 to 10 do D[i] := i * i;          writeln();     for i := 1 to 8 do write(B[i], ' ');     writeln();     for i := 1 to 7 do write(C[i], ' ');     writeln();     for i := 1 to 10 do write(D[i], ' '); end.