Записать и упростить выражение для объединения областей на диаграмме 1. 3+6+7
2. 4+7+8
3. 2+3+5

Question

Информатика: Записать и упростить выражение для объединения областей на диаграмме 1. 3+6+7 2. 4+7+8 3. 2+3+5

Marinaaa01 · Accepted Answer

ВАРИАНТ 1
begin
var a:=ArrRandom(20,1,100);
a.Println;
var tri:=a.Where(x->(x mod 10)=3);
writeln(tri.Max);
end.

Ввод - 9 13 22 49 68 67 98 11 28 12 69 73 20 91 63 69 81 93 99 66
Вывод - 93

ВАРИАНТ 2
const m = 20;

var a, b: array [1..m] of integer;
i, max_num: integer;

begin
for i := 1 to m do
Read(a[i]);
for i := 1 to m do
if (a[i] mod 10 = 3) then begin
b[i] := a[i];
end;
max_num := b[1];
for i := 2 to m do
if (b[i] > max_num) then
max_num := b[i];
writeln('Max = ', max_num);
end.

Записать и упростить выражение для объединения областей на диаграмме 1. 3+6+7 2. 4+7+8 3. 2+3+5

MOGZ ответил

Записать и упростить выражение для объединения областей на диаграмме 1. 3+6+7
2. 4+7+8
3. 2+3+5