llegog
24.01.2021 19:47

Одномерный массив - вывести на экран одномерный массив, раскрасив в нём зелёным цветом минимальный элемент массива шапочка от программы 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;

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Sone4ga
02.10.2020 16:55
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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота