{НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ: 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.
Const n=20; var a:array[1..n] of integer; k1,k2,s,i:integer; p:real; begin Randomize; for i:=1 to n do begin a[i]:=random(26)-5; write(a[i],' '); end; writeln; k1:=0; k2:=0; p:=1; for i:=1 to n do begin if a[i]>0 then begin s:=s+a[i]; k1:=k1+1; end else if a[i]<0 then k2:=k2+1; if a[i] mod 2 = 0 then p:=p*a[i]; end; writeln('Среднее арифметическое положительных элементов = ',s/k1); writeln('Количество отрицательных чисел = ',k2,' количество нулей = ',n-k1-k2); writeln('Произведение чётных элементов = ',p); end.
Пример: 10 1 11 -5 -4 10 -4 -2 2 2 17 3 12 -3 15 -5 12 -3 4 -4 Среднее арифметическое положительных элементов = 8.25 Количество отрицательных чисел = 8 количество нулей = 0 Произведение чётных элементов = 29491200