Предмет: Информатика,
автор: FreeFalling
Одномерный массив
Задание - Вывести на экран одномерный массив, раскрасив в нём зелёным цветом минимальный элемент массива
Шапочка от программы
Uses Crt;
Type Mas = array [1..14] of integer;
Var G : Mas;
i:integer;
Begin
Randomize;
For i:=1 to 14 do begin
G[i]:=random(42)-21;
Write(G[i]:4);
End;
Ответы
Автор ответа:
1
Uses Crt;
Type Mas = array [1..14] of integer;
Var G : Mas;
i,min:integer;
Begin
min:=MaxInt;
Randomize;
For i:=1 to 14 do begin
G[i]:=random(42)-21;
if (g[i]<min) then min:=g[i];
End;
For i:=1 to 14 do begin
textcolor(7);
if (g[i]=min) then textcolor(10);
write (g[i]:3,' ':2);
end;
end.
//ABC Pascal
Type Mas = array [1..14] of integer;
Var G : Mas;
i,min:integer;
Begin
min:=MaxInt;
Randomize;
For i:=1 to 14 do begin
G[i]:=random(42)-21;
if (g[i]<min) then min:=g[i];
End;
For i:=1 to 14 do begin
textcolor(7);
if (g[i]=min) then textcolor(10);
write (g[i]:3,' ':2);
end;
end.
//ABC Pascal
Похожие вопросы
Предмет: Русский язык,
автор: оссоф
Предмет: Английский язык,
автор: Dany1522
Предмет: Английский язык,
автор: ksenvis2010
Предмет: Геометрия,
автор: divysotscaya