Напишите программу по алгоритму: нач х=3 у=-9 если (х у) то (z=x-y иначе z=y-x) вывод (z) кон алг или - id26688520230214 от sludkov 14.02.2023 12:46

Question

Информатика: Напишите программу по алгоритму: нач х=3 у=-9 если (х у) то (z=x-y иначе z=y-x) вывод (z) кон алг или нач х,у если (х у) то (z=x-y иначе z=y-x) вывод (z) кон алг

sludkov · Accepted Answer

Не самое лучшее решение, но вот:

const
    n = 2;
   k = 2;
var
i,j,s:integer;
a:array[1..n,1..k] of integer;
begin
    s:=0;
for i:=1 to n do
for j:=1 to k do
begin
Writeln('Введите a[',i,',',j,']:');
readln(a[i,j]);
if a[i,j] mod 2=0 then s:=s+a[i,j];
end;
if s<0 then
for i:=1 to n do
for j:=1 to k do
if j mod 2=0 then
a[i,j]:=1;
if s>=0 then
for i:=1 to n do
for j:=1 to k do
if j mod 2=0 then
a[i,j]:=-1;
for i:=1 to n do
begin
for j:=1 to k do
write('a[':4,i,',',j,']=',a[i,j]);
writeln;
end;
end.

Напишите программу по алгоритму: нач х=3 у=-9 если (х> у) то (z=x-y иначе z=y-x) вывод (z) кон алг или нач х,у если (х> у) то (z=x-y иначе z=y-x) вывод (z) кон алг

MOGZ ответил