Присвойте величине а значение наибольшего из трех заданных чисел. паскаль.

237

242

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

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

aium08

Информатика

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

Program mm; var a,b,n,k: integer; begin n: =3; / задаем кол-во чисел while (n> k) do begin k: =k+1; readln (b); / вводим нужное число if (b> a) then a: =b; / задаем величине 'а' наибольшее значение end; writeln (a); / выводим(если надо) end. должно сработать. сейчас нет возможности проверить.

lyubsretste

Информатика

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

Если , то вот так: begin writeln('температура апреля: '); var a: =arrrandom(30,-10,10); a.println; var sr: =a.where(x-> x> =0).average; writeln('средняя температура для дней, когда > 0 = ',sr: 4: 1); var k: =a.where(x-> x> =0).count; if k=0 then writeln('no') else writeln('количество дней с температурой > 0 = ',k); writeln('самая низкая температура: ',a.indexmin+1,' день апреля'); end. пример: температура апреля: -3 -5 9 7 0 -7 -3 8 -5 9 -5 1 -8 3 0 3 -2 -7 9 4 2 -4 -10 7 1 7 4 3 6 -2 средняя температура для дней, когда > 0 = 4.6 количество дней с температурой > 0 = 18 самая низкая температура: 23 день апреля