Помогите с информатикой, упрашиваю!!

Помогите с информатикой, упрашиваю!!

Задать свой вопрос
1 ответ
Const n=10;
var a:array[1..n] of integer;
prz:integer;
i:byte;
begin
prz:=1;
for i:=1 to n do
begin
a[i]:=-56+random(103);
if (i mod 2=0) and (a[i]gt;5) then
prz:=prz*a[i];
write(a[i],' ');
end;
writeln('prz= ',prz);
end.

Константин Блачев
это 4 задачка
Iljusha Mols
const n=10;var a:array[1..n] of integer;prz:integer;i:byte;beginprz:=1;for i:=1 to n dobegina[i]:=-56+random(103);if i mod 2=0 thenprz:=prz*a[i];write(a[i],' ');end;writeln('prz= ',prz);end.
Таисия Костеницина
Это 4 задачка
Генка
3*
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт