Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.

0 0

4 года назад

Сколько кб в 4096 битах?сколько байтов в 1 МБ ?сколько МБ в 31457280 битов ? СРОООЧНООО!

Анатолий Деменчак

4096 б = 4.096 кб 1 МБ = 1048576 Б 31457280 б = 3.75 МБ

0 0

4 года назад

Привет, помогите пожалуйста, как решить три задачи(ниже) в паскаль? 1)Определить командное время в эстафете, если известно время

antony p s

1.
program nom1;
const n=8;
var a:array[1..n] of integer;
i,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
write('Командное время = ',t);
end.

2.program n2;
const N=15;
var a:array[1..N] of integer;
i:integer;
v:real;
begin
for i:=1 to N do a[i]:=random(30);
v:=0;
for i:=1 to N do
v:=v+a[i];
v:=v/N;
writeln('Сред высота =',v);
end.

3.
program n3;
const N=12;var a:array[1..N] of integer;
i,c:integer;
begin
for i:=1 to N do a[i]:=random(120)+100;
c:=0;
for i:=1 to N do
if a[i]>160 then
c:=c+1;
writeln('Kол-во прошедших = ',c);
end.

0 0

4 года назад

Дано предложение. Определить, есть ли в нем сочетания "чу" или "щу". В случае положительного ответа найти также порядковый номер

Ирина Бобкова

В где само предложение?

0 0

4 года назад