Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.
1 бусинка самая маленькая 2 больше 3 больше 1,2 4 больше 1,2,3 а 5 больше 1,2,3,4. А 6 может быть равна любой из 1;2;3;4;5.
Держи программу. Вывод сделай сам. Верного ответа я не вижу...
const m = 7;
var
X: array [1..m, 1..m] of integer;
A, i, j: integer;
begin
randomize;
A := 100;
for i := 1 to m do
begin
for j := 1 to m do
begin
X[i, j] := random(20);
write(X[i, j]:6);
end;
writeln;
end;
write('======================');
writeln('======================');
for i := 1 to m do
for j := 1 to m do
if i mod 2 <> 0 then
X[j, i] := A;
for i := 1 to m do
begin
for j := 1 to m do
begin
write(X[i, j]:6);
end;
writeln;
end;
end.
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.