Program n1;
Uses CRT;
Const n=5;
Var x: array[1..n,1..n] of integer;
a: array[1..n] of integer;
i,p,s,j: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
For j:=1 to n do
x[i,j]:=random(100);
j:=1;
Repeat
For i:=1 to n do
If a[j]<x[i,j] then a[j]:=x[i,j];
write(a[j]:4);
j:=j+1;
Until j=n+1;
p:=1;
writeln;
For i:=1 to n do
If i mod 2=0 then s:=s+a[i]
else p:=p*a[i];
writeln('Proizvedenie =',p,',Summa =',s);
readln
end.

0 0

4 года назад

Что такое за устройство ввода используемое для управления компьютером во время игры?8 букв

максикон [14]

Джойстик, геймпад, клавиатура зависит от игры

0 0

3 года назад

Дано натуральное число верно ли что оно заканчивается цифрой 2 ???? Информатика, братцы, срочно , блэээт !!!! Желательно 1 и 3

Ира Стойкина

Верно так как оно последние

0 0

3 года назад

Запишите порядок действий и постройте таблицу истинности для логического выражения X v Y X <> Y X

innusa113

Объяснение:

+ в кругу – это <>.........

0 0

3 года назад