Program n1;
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(20);
if a[i] mod 2<>0 then write(a[i],' ');
end;
end.

0 0

2 года назад

СРОЧНООООО задайте массив из 10 элементов с помощью датчика случайных чисел.Найдите сумму индексов элементов,которые больше сред

Дмитрий Комонов

Var i,q:integer;s:real;a:array[1..10]of integer;beginfor i:=1 to 10 do begina[i]:=random(100);s:=s+a[i];end;s:=s/10;for i:=1 to 10 do beginwriteln(a[i]);if a[i]>s then q:=q+i;end;writeln(q);end.

0 0

1 год назад

Напишите рекурсивную функцию вычисления суммы цифр натурального числа. Формат входных данных На вход ваша программа получает одн

якуб1986

Var n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.

0 0

1 год назад

Способ представления информации фотография вид данных ??

1 миша 1

Графическая информация

0 0

4 года назад