Обратим внимание, что задания 2 и 3 предполагают одинаковый результат: в самом деле, если число оканчивается на 2, то оно четное, т.е. кратно двум, что приводит задание 3 к заданию 2. Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),1,99); a.Println; Writeln('k=',a.Where(k->k.IsEven).Count); // для задания 1 Writeln('s=',a.Where(k->k mod 10=2).Sum) // для заданий 2/3 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);
Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
Writeln('k=',a.Where(k->k.IsEven).Count); // для задания 1
Writeln('s=',a.Where(k->k mod 10=2).Sum) // для заданий 2/3
end.
Пример
n= 17
61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67
k=8
s=84