Привет всем. в понедельник экзамен по информатике, а я ничего не могу решить. кто нибудь может помочь?задачи:1.Найдите сумму всех элементов одномерного числового массива.2.найдите произведение всех элементов одномерного числово...
Привет всем. в понедельник экзамен по информатике, а я ничего не могу решить. кто нибудь может помочь?
задачи:
1.Найдите сумму всех элементов одномерного числового массива.
2.найдите произведение всех элементов одномерного числового массива.
3.найдите количество отрицательных элементов одномерного числового массива.
4.найдите количество нечетных элементов одномерного числового массива.
5.найдите количество элементов одномерного числового массива <20.
6.найдите количество кратных 7 элементов одномерного числового массива.
7.найдите сумму элементов одномерного числового массива=8.
8.найдите сумму кратных 11 элементов одномерного числового массива.
9.найдите сумму чётных элементов одномерного числового массива.
10.найдите произведение кратных 3 элементов одномерного числового массива.
11.найдите произведение элементов одномерного числового массива >2 и <5.
12.вывести на экран элементов одномерного числового массива >15.
13.вывеси на экран элементов одномерного числового массива кратных 21.
14.вывести на экран четные элементов одномерного числового массива.
Гость
Ответ(ы) на вопрос:
Гость1) var a:array [1..15] of integer; s,i:integer; begin randomize; for i:=1 to 15 do begin a[i]:=random(80)-20; write (a[i],' '); s:=s+a[i]; end; writeln; writeln ('Summa = ',s); readln; end. 2) var
a:array [1..15] of integer;
i:integer; p:longint;
begin
randomize; p:=1;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end. 3) var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(90)-50;
write (a[i],' '); if a[i]<0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 4) var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
if odd(a[i])=true then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 5) var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(39)+2;
write (a[i],' ');
if a[i]<20 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 6) var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(60)+5;
write (a[i],' ');
if a[i] mod 7 = 0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 7) var a:array [1..15] of integer; s,i:integer; begin randomize; for i:=1 to 15 do begin a[i]:=random(8)+3; write (a[i],' '); if a[i]=8 then s:=s+a[i] end; writeln; writeln ('Summa = ',s); readln; end. 8) var a:array [1..15] of integer; s,i:integer; begin randomize; for i:=1 to 15 do begin a[i]:=random(69)+5; write (a[i],' '); if a[i] mod 11 = 0 then s:=s+a[i]; end; writeln; writeln ('Summa = ',s); readln; end. 9) var a:array [1..15] of integer; s,i:integer; begin randomize; for i:=1 to 15 do begin a[i]:=random(69)+5; write (a[i],' '); if odd(a[i])=false then s:=s+a[i]; end; writeln; writeln ('Summa = ',s); readln; end. 10) var
a:array [1..15] of integer;
i:integer; p:longint;
begin
randomize; p:=1;
for i:=1 to 15 do begin
a[i]:=random(69)+5;
write (a[i],' ');
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end. 14) var
a:array [1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
end;
writeln; writeln ('=========================================================='); for i:=1 to 15 do if odd(a[i])=false then write (a[i],' ');
readln;
end. 13) var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(85)+21;
write (a[i],' ');
end;
writeln; writeln('========================================================='); for i:=1 to 15 do if a[i] mod 21 = 0 then begin write (a[i],' '); k:=k+1; end; if k=0 then writeln ('Elementov net');
readln;
end. 12) var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
end;
writeln; writeln('========================================================='); for i:=1 to 15 do if a[i]>15 then write (a[i],' '); readln;
end. 11) var
a:array [1..15] of integer;
i:integer; p:longint;
begin
randomize; p:=1;
for i:=1 to 15 do begin
a[i]:=random(15)+1;
write (a[i],' ');
if (a[i]>2) and (a[i]<5) then p:=p*a[i]; end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.
Не нашли ответ?
Похожие вопросы