Помогите пожалуйста Паскаль1. Дан массив из N элементов. Вывести квадраты частей

Помогите пожалуйста Паскаль
1. Дан массив из N частей. Вывести квадраты элементов с нечетными номерами.
2. Дан массив из N частей. Найти количество частей, которые являются нечетными числами.

Задать свой вопрос
1 ответ

1)var a:array[1..100] of integer; i,n:integer;
begin
readln(n);
for i:=1 to n do
a[I]:=random(10000);
for i:=1 to n do
if i mod 2 lt;gt; 0 then write(a[I]*a[I],' ');
end.


2)var a:array[1..100] of integer; i,k,n:integer;
begin
readln(n);
for i:=1 to n do
a[I]:=random(10000);
for i:=1 to n do
if a[I] mod 2 lt;gt; 0 then k:=k+1;
write(k);
end.
Рома
ага
Васильева-Рашевская Карина
for i:=1 to n doa[I]:=random(10000);
Никита Высоких
исправьте пж
Данил Микряев
исправил)
Васька Нечетаев
"Вывести квадраты частей", а не индексов
Виолетта Корсикова
спасибо, поправил
Толтова Алла
Не правильно!!!!
Регина Елисеева-Духова
что конкретно? какую версию паскаля вы используете?
Мирослава Карасев-Хромова
ABC
Тимур Сазазкин
2 порогу досконально пожалуйста
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт