Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Привет всем. в понедельник экзамен по информатике, а я ничего не могу решить. кто нибудь может помочь?

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.вывести на экран четные элементов одномерного числового массива.

AlinaDoronina2012 24 апр. 2014 г., 6:55:22 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Polinalu
24 апр. 2014 г., 8:52:17 (9 лет назад)

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. Напишите программу, определяющую номер последней прочитанной страницы.

Читайте также

Помогите срочно! По информатике задали 7 вопрос: Возле школы растут шесть деревьев: сосна, берёза, липа, тополь, ель и клён. Какое из этих деревьев самое

низкое, если известно, что берёза ниже тополя, липа выше клёна, сосна ниже ели, липа ниже берёзы, сосна выше тополя?
И второй вопрос: Пятеро одноклассников - Аня, Саша, Лена, Вася и Миша - стали победителями школьных олимпиад по истории, математике, информатике, литературе и географии. Известно, что: 1) победитель олимпиады по информатике учит Аню и Сашу работе на компьютере; 2) Лена и Вася заинтересовались информатикой; 3) Саша всегда побаивался истории; 4) Лена, Саша и победитель олимпиады по литературе занимаются плаванием; 5) Саша и Лена поздравили победителя олимпиады по математике; 6) Аня сожалеет о том. что у неё остаётся мало времени на литературу.
Победителем какой олимпиады стал каждый из этих ребят?

Помогите!!!!очень нужно))паскаль. паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки,

затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать. 2)Составить программу, которая находит минимальное число большее 200, которое нацело делится на 17. Использовать цикл с предусловием While.всю программу напишите, пожалуйста)))

Привет всем. Помогите пожалуйста, нужно закончить фразы: 1. Разрабатывать алгоритмы может только... 2. Исполняет

алгоритмы...

Заранее спасибо. Завтра информатика, а я порой не понимаю некоторое. =)



Вы находитесь на странице вопроса "Привет всем. в понедельник экзамен по информатике, а я ничего не могу решить. кто нибудь может помочь?", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.