// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
1)
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.Select(r->r.Where(t->t.IsOdd).LastOrDefault); b.Println; end.
Program Task; Const pupils = 20; subjects = 10; Var marks: Array[1..pupils, 1..subjects] of Integer; marks_average: Array[1..pupils] of Real; i, j: Integer; all_marks_average: Real; Begin For i := 1 To pupils Do Begin WriteLn('Введите через пробел оценки ученика №', i); For j := 1 To subjects Do Read(marks[i, j]); End; For i := 1 To pupils Do Begin For j := 1 To subjects Do marks_average[i] := marks_average[i] + marks[i, j]; marks_average[i] := marks_average[i] / subjects; End; For i := 1 To pupils Do all_marks_average := all_marks_average + marks_average[i]; all_marks_average := all_marks_average / pupils; WriteLn('Результат: ', all_marks_average:2:2); ReadLn; End.
i: integer;
begin
for i := 100 to 999 do
if i mod 3 = 0 then writeln(i);
end.