найти ошибку Задание: Необходимо в редакторе Pascal написать программу, которая на основе заданных трех - id1492967520220808 от Katerina48russia 08.08.2022 20:34

Question

Информатика: найти ошибку Задание: Необходимо в редакторе Pascal написать программу, которая на основе заданных трех числовых последовательностей , , формирует числовые последовательности , по определенному правилу. Числовые последовательности , , содержат вещественные числа и их размерность задается в программе в виде константы ( ).Числовые последовательности задаются в виде массивов. Выполнить программу и проанализировать результаты ее работы (проведя параллельные вычисления в табличном процессоре).

Katerina48russia · Accepted Answer

Const   n = 9; var   a:array[1..n,1..n] of integer;   i,j,k,max: integer; begin   Randomize;   Writeln( Исходная матрица );   max:=-100;   for i:=1 to n do   begin     for j:=1 to n do     begin       a[i,j]:=Random(51)-25;       Write(a[i,j]:4);       if max a[i,j] then max:=a[i,j]     end;     Writeln   end;     for i:=2 to n-1 do { не просматривать первую и последнюю строки }     for j:=1 to n do       if a[i,j]=max then a[i,j]:=0;     Writeln( Результирующая матрица );   for i:=1 to n do   begin...

MOGZ ответил