Составить алгоритм (блок-схема, программа на языке Pascal) для нахождения максим...

July 2022 1 3 Report

Составить алгоритм (блок-схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов

Answers & Comments

Gleb1Kosyrev

Verified answer

//PascalABC.NET 3.2 сборка 1318

Var
ar:array[1..10] of integer;
i,m:integer;
begin
m:=integer.MinValue;
for i:=1 to 10 do
begin
ar[i]:=random(101);
write(ar[i]:4);
if ar[i]>m then m:=ar[i];
end;
writeln;
write('Max=',m);
end.

Пример работы программы:
6 84 52 68 75 86 37 44 23 36
Max=86

0 votes Thanks 0

Answers & Comments

Verified answer

paskal programma 1 poschitat v cikle summu kvadratov chisel chislo vozvesti v k

algoritm blok shema programma na yazyke pascal dlya nahozhdeniya maksimalnogo el

vse li predlozheniya s pryamoj rechyu mozhno preobrazovat v predlozheniya s kosvennoj

pozhalujstavy samye umnyeesli napishiteluchshij otvet pervomuballov mnogo

sostavte 3 slovosochetaniya s raznoj svyazyuupravlenieprimykaniesoglasovanielu

v treugolnike avs mediany vv1 i ss1 peresekayutsya v tochke o i vzaimno perpendiku67c3098321c85dd7c5bce501ef9d72c3 74331

рекомендуемые вопросы

Helpful Links

Helpful Social