3.Борода
6.Волосы
7.Ус
8.тыква
Скопировать: Ctrl+C Вставить Ctrl+V
Привет, как настроение? Меня зовут Мария, мне 18 лет. Хочу пообщаться с парнем.
Если тебе это интересно, найди меня тут - onetimesex.com
Мой никнейм - MoonaMod
Шестиклассники Аня, Боря, Вася, Галя, Даша и Иван получили флешки на 1,2,4,8,16,32 Гб. Выясните, кто из ребчт получили флешку са
alexandro76 [1]
У Ивана самая большая(32Гб), а у Гали самая маленькая(1Гб).
Program asd;
Const n=5;
m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>