unikkum22

25.10.2020 02:52

Информатика

Есть ответ 👍

Паскаль! RestIess help ))) Заполнить массив целыми случайными числами, найти значение и номер максимального некратного 4. Если таких нет - вывести сообщение.

208

398

Посмотреть ответы 3

Ответы на вопрос:

kami179

Информатика

4,7(7 оценок)

Const

n=10;

var i,amin,amax,imin,imax:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do

a[i]:=random(30);

writeln('Полученный массив:');

for i:=1 to n do

write(a[i]:4);

writeln;

imax:=1;

imin:=1;

amax:=a[1];

amin:=a[1];

for i:=1 to n do

if a[i]>amax then

begin amax:=a[i]; imax:=i end else

begin amin:=a[i]; imin:=i; end;

writeln('A[',imin,']=',a[imin]);

writeln('A[',imax,']=',a[imax]);

end

досметова

Информатика

4,4(55 оценок)

program fives;

CONST N = 10;

var

a: array [1..N] of integer;

i,imax4,imax4z : integer;

begin

Randomize;

imax4 := 1;

imax4z := a[1];

for i := 1 to N do

begin

a[i] := random(100) + 1;

writeln(a[i]);

end;

for i := 1 to N do

begin

if (a[i] mod 4 <> 0) and (a[i]>imax4z) then

begin

imax4z := a[i];

imax4:= i;

end;

writeln('Значение максимума:',imax4z);

writeln('Его индекс:',imax4);

end.

topovyyanTay

Информатика

4,4(26 оценок)

Расписание: информатика физра право

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.