Привет всем. в понедельник экзамен по информатике, а я ничего не могу решить. кто нибудь может помочь?
5-9 класс
|
задачи:
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.
Другие вопросы из категории
1. Татьяна Ларина, читая очередной фрацузский роман, подсчитала сумму номеров прочитаных страниц. Обозначив эту сумму Q. Напишите программу, определяющую номер последней прочитанной страницы.
Читайте также
низкое, если известно, что берёза ниже тополя, липа выше клёна, сосна ниже ели, липа ниже берёзы, сосна выше тополя?
И второй вопрос: Пятеро одноклассников - Аня, Саша, Лена, Вася и Миша - стали победителями школьных олимпиад по истории, математике, информатике, литературе и географии. Известно, что: 1) победитель олимпиады по информатике учит Аню и Сашу работе на компьютере; 2) Лена и Вася заинтересовались информатикой; 3) Саша всегда побаивался истории; 4) Лена, Саша и победитель олимпиады по литературе занимаются плаванием; 5) Саша и Лена поздравили победителя олимпиады по математике; 6) Аня сожалеет о том. что у неё остаётся мало времени на литературу.
Победителем какой олимпиады стал каждый из этих ребят?
затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать. 2)Составить программу, которая находит минимальное число большее 200, которое нацело делится на 17. Использовать цикл с предусловием While.всю программу напишите, пожалуйста)))
алгоритмы...
Заранее спасибо. Завтра информатика, а я порой не понимаю некоторое. =)
помню , знаю только что сайт зелёный и по моему паук есть