Const n=7; Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье'); var T:array[1..7] of integer; D: array[1..7] of real; i,k:byte; s:integer; SR:real; begin S:=0; randomize; Writeln('Температура в течение недели:'); for i:=1 to n do begin T[i]:=random(50)-25; S:=S+T[i]; write(T[i]:4); end; writeln; SR:=S/n; writeln('Средняя температура: ',SR:3:2); k:=0; Writeln('Температуры ниже средней в дни : '); for i:=1 to n do if T[i]<SR then begin write(Day[i]:15); k:=k+1; end; writeln; writeln('Всего ',K,' дня(ей)'); writeln('Массив отклонений:'); for i:=1 to n do begin D[i]:=T[i]-SR; write(d[i]:8:3); end; end.
Program Pr; Var a : array [1..100, 1..100] of integer; i, max, min, j, n: integer; Begin cls; read(n); min := 100000; max := -100000; for i := 1 to n do for j := 1 to n do begin read(a[i,j]); if (a[i,j] > max) then max := a[i,j]; if (a[i,j] < min) then min := a[i,j]; end; writeln ('Сумма = ', min + max); writeln ('Разность = ', max - min); writeln ('Произведение = ', max * min);End.
жаждемадмцсдцсд йдвм
Объяснение:
пь дцм даду дйч дйамдцас