Const n=5; var a:array[1..n,1..n+1] of integer; i,j:integer; begin for i:=1 to n do begin for j:=1 to n-i+1 do a[i,j]:=j+i-1; for j:=n-i+2 to n+1 do a[i,j]:=0; end; for i:=1 to n do begin for j:=1 to n+1 do write(a[i,j]:2); writeln; end; end.
За в следующий раз никто программу не напишет вам var mo,tu,we,th,fr,sa,su,a: ShortInt; var b: Real; Begin Write('Температура воздуха в Понедельник: '); Readln(mo); Write('Температура воздуха во Вторник: '); Readln(tu); Write('Температура воздуха в Среду: '); Read(we); Write('Температура воздуха в Четверг: '); Readln(th); Write('Температура воздуха в Пятницу: '); Readln(fr); Write('Температура воздуха в Субботу: '); Readln(sa); Write('Температура воздуха в Воскресенье: '); Readln(su); a:=mo+tu+we+th+fr+sa+su; b:=a/7; Write('Средняя температура воздуха: ',b:0:2,' градусов.'); End.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var M:=ArrRandom(ReadInteger('x='),-50,50); M.Println; var pa:=M.Where(p->p>3).Average; Writeln('Среднее арифметическое чисел, превышающих 3: ',pa); var pm:=M.TakeLast(10).Max; Writeln('Максимум из десяти последних чисел: ',pm); var pp:=pm/pa; Writeln('Отношение двух найденных величин: ',pp); Writeln('Сформированный массив'); var C:=M.Where(p->p>pp).ToArray; C.Println end.
Пример x= 15 2 -44 30 49 -36 47 -38 -21 -50 3 -5 50 37 -8 -18 Среднее арифметическое чисел, превышающих 3: 42.6 Максимум из десяти последних чисел: 50 Отношение двух найденных величин: 1.17370892018779 Сформированный массив 2 30 49 47 3 50 37
var a:array[1..n,1..n+1] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i+1 do a[i,j]:=j+i-1;
for j:=n-i+2 to n+1 do a[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to n+1 do write(a[i,j]:2);
writeln;
end;
end.
Результат:
1 2 3 4 5 0
2 3 4 5 0 0
3 4 5 0 0 0
4 5 0 0 0 0
5 0 0 0 0 0