Задача 1 Var i,sum:integer; mas:array [1..10] of integer; Begin for i:=1 to 10 do begin mas[i]:=random(20); write(' ',mas[i]); sum:=sum+mas[i]; end; writeln; write('Среднее арифметическое этих чисел = ',sum/10); End.
Задача 2 Var i,max:integer; Begin readln(i); while (i<>0) do begin if (i>max) then max:=i; readln(i); end; Writeln('Максимальное число: ',max); End.
Для примера со сложением чисел 25 учениками попробуйте проанализировать следующие ситуации: в классе всего 1 кусок мела; в классе 5 кусков мела; в классе 25 кусков мела. оцените, как от этого зависит время решения (учтите ещё ширину доски и время перемещения учеников по классу) попробуйте построить модель такого процесса. переведите эту ситуацию на язык компьютерной терминологии для многопроцессорных систем. 2) попробуйте примеры алгоритмов поиска информации в массиве и сортировки массива, которые допускают распараллеливание операций. опишите процедуру распараллеливания. сколько процессоров необходимо для эффективного распараллеливания в вами примере?
Var i,sum:integer;
mas:array [1..10] of integer;
Begin
for i:=1 to 10 do begin
mas[i]:=random(20);
write(' ',mas[i]);
sum:=sum+mas[i];
end;
writeln;
write('Среднее арифметическое этих чисел = ',sum/10);
End.
Задача 2
Var i,max:integer;
Begin
readln(i);
while (i<>0) do begin
if (i>max) then max:=i;
readln(i);
end;
Writeln('Максимальное число: ',max);
End.