var

n, i, sum, k : integer;

begin

read (n);

for i := 1 to n do

begin

read (k);

if k mod 15 = 0 then sum := sum + k;

end;

writeln (sum / n);

end.

0 0

1 год назад

Ребят помогите пожалуйста прошу

olga17041990

Может получиться 64 последовательности.

Всего 6 мест, на каждом месте может стоять 2 буквы.

Следовательно, 2 в 6 степени = 64.

0 0

3 года назад

Прочитать ещё 2 ответа

Тема: Последовательный поиск в массиве. Сгенерировать массив из 5 элементов, найти в массиве число 3. Найти в массиве число боль

валерия иванова [340]

const n=5;

var a:array [1..n] of integer;

i,s:integer;

begin

for i:= 1 to n do

begin

a[i]:=Random(5)+2;

write(a[i],' ');

end;

writeln;

for i:= 1 to n do if a[i]=3 then writeln (i,' элемент равен ',a[i]);

for i:= 1 to n do if a[i]>3 then writeln (i,' элемент больше 3 и равен ',a[i]);

for i:= 1 to n do if (a[i]>=3) and (a[i]<=5) then s:=s+a[i];

writeln ('Сумма чисел в массиве удовлетворяющих условию 3<=x<=5 равна ',s)

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Очень срочно!!!!Составьте программу в АВС ПАСКАЛЬ, которая осуществляет ввод двух целых чисел с клавы и вывод на экран монитора

Zaa [50]

Var s,a,b:integer;
begin
read(a,b);
s:=(a+b)*7;
write(s);
<span>end.</span>

0 0

4 года назад