Решите задачи по информатике с полным решением и объяснением 1) Даны три числа. Найти сумму двух наибольших - id1209401520230307 от nica26 07.03.2023 16:17

Question

Информатика: Решите задачи по информатике с полным решением и объяснением 1) Даны три числа. Найти сумму двух наибольших из них. 2)Определить, является ли год, который ввел пользователем, високосным или невисокосным.(Високосный год делится на 4 без остатка) 3). Дана следующая функция y=f(x): y = 2x - 1, если x 0, y = 0, если x = 0, y = 2 * |x| -2, если x 0

nica26 · Accepted Answer

Const n=20; var  a,b:array[1..n] of integer; i,j,k,m,c:integer;  begin Randomize; writeln( Исходный массив: ); for i:=1 to n do  begin   a[i]:=random(51)-25;   write(a[i]:5);  end; writeln; j:=0; for i:=1 to n do  if a[i] 0 then begin j:=j+1; b[j]:=a[i]; end; m:=j; for k := 1 to m-1 do   for i := 1 to m-k do      if (b[i] b[i+1]) then         begin        c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c;        end; writeln( Вс массив: ); for i:=1 to m do write(b[i]:5); writeln; j:=0; for i:=1 to n do  if a[i]...

MOGZ ответил