20 б! . Паскаль. Дана последовательность из целых чисел. Числа находятся в диапазоне от - 1000 до 1000. Определить какое минимальное число: чётное или нечётное?

185

272

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

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

Вишеневка123456789

Информатика

4,6(96 оценок)

ответ:

var

i, n, x, max:integer;

begin

max := -1001;

read(n); // Количество вводимых чисел

for i := 1 to n do begin

read(x); // Ввод чисел

if(x mod 2 = 0) and (x > max) then

max := x;

end;

if(max = -1001) then

write(0)

else

write(max);

end.

Подробнее - на -

Объяснение:

банан116

Информатика

4,6(46 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure view(fams: array of string; balls: array[,] of integer); begin for var i: =0 to fams.length-1 do begin write(fams[i],': '); balls.row(i).println end end; begin var n: =readlninteger('количество студентов: '); var m: =readlninteger('количество оценок у студента: '); var afam: =new string[n]; var aball: =new integer[n,m]; for var i: =0 to n-1 do begin afam[i]: =readlnstring('студент '+(i+1)+': '); write('оценки студента: '); for var j: =0 to m-2 do read(aball[i,j]); readln(aball[i,m-1]); end; writeln('*** принятые сведения ***'); view(afam,aball); var s: =aball.rows.select(x-> x.all(y-> y= .where(x-> not x[1]).select(x-> x[0]-1).toarray; var n1: =s.count; if n1> 0 then begin var t: =new string[n1]; var t1: =new integer[n1,m]; for var i: =0 to n1-1 do begin t[i]: =afam[s[i]]; for var j: =0 to m-1 do t1[i,j]: =aball[s[i],j] end; afam: =copy(t); aball: =copy(t1); writeln('*** после удаления отличников ***'); view(afam,aball); end end. пример количество студентов: 5 количество оценок у студента: 3 студент 1: иванов и.и. оценки студента: 5 4 5 студент 2: петров п.п. оценки студента: 5 5 5 студент 3: сидорова т.с. оценки студента: 5 5 5 студент 4: козлова к.к. оценки студента: 4 4 3 студент 5: макаров м.м. оценки студента: 4 5 4 *** принятые сведения *** иванов и.и.: 5 4 5 петров п.п.: 5 5 5 сидорова т.с.: 5 5 5 козлова к.к.: 4 4 3 макаров м.м.: 4 5 4 *** после удаления отличников *** иванов и.и.: 5 4 5 козлова к.к.: 4 4 3 макаров м.м.: 4 5 4

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

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

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

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

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

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

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

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

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

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