Алмат хочет применить в таблице для наименования секции функцию условного форматирования.Для этого он - id1512498520220330 от BASS1111 30.03.2022 07:47

Question

Информатика: Алмат хочет применить в таблице для наименования секции функцию условного форматирования.Для этого он выбрал Цветовые шкалы.В результате значения столбца С не закрасились.Укажи причину возникновения проблемы

BASS1111 · Accepted Answer

program v1;

Var a:array [1..10] of integer;

i,j,j1,min,n,max,q:integer;

begin

randomize;

for i:=1 to 10 do a[i]:=random(31)+10;

Writeln (' Znachenija matracy ');

for i:=1 to 10 do write (a[i]:3); writeln;

Max:=a[1];

for i:=1 to 10 do

if a[i]>=max then begin

max:=a[i];

j:=i;

end;

min:=a[1];

for i:=1 to 10 do

if a[i]<=min then begin

min:=a[i];

j1:=i;

end;

q:=a[j1];

a[j1]:=a[j];

a[j]:=q;

For i:=1 to 10 do write (a[i]:3); writeln;

Writeln (' Maxim element = ',max);

writeln (' Minim element = ',min);

end.

Написать код программы в среде Паскаль, которая ищет максимальный и минимальный элемент в массиве и

MOGZ ответил