Другие языки программирования и технологии

Помогите с составлением задач в Pascal ABC!!Срочно!

1)Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все нечетные элементы, начиная с конца. Вычислить их произведение
2)Вывести на экран элементы массива, стоящие на четных местах, вычислить их сумму (Вмассиве 20 элементов, заполнен случайными числами. )
3)Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 .Вывести на экран, посчитать количество положительных чисел
Ваня Чеботаренко
Ваня Чеботаренко
95
program z1;
var
 i: integer;
 a: array [1..10] of integer;
begin
 for i := 1 to 10 do
 begin
  Write('a[', i, '] = ');
  ReadLn(a[i]);
 end;
 for i := 10 downto 1 do
  if i mod 2 = 1 then
   Write(a[i], ' ');
 ReadLn;
{Оптимизация может развернуть циклы, тогда через while или repeat выведи}
end.

program z2;
var
 i: integer;
 s: integer;
 a: array [1..20] of integer;
begin
 Randomize;
 for i := 1 to 20 do
 begin
  a[i] := Random(100);
  Write(a[i], ' ');
 end;
 WriteLn;
 s := 0;
 for i := 1 to 20 do
  if i mod 2 = 0 then
  begin
   Write(a[i], ' ');
   s := s + a[i];
  end;
 WriteLn;
 WriteLn(s);
 ReadLn;
end.

program z3;
var
 i: integer;
 n: integer;
 a: array [1..20] of integer;
begin
 Randomize;
 for i := 1 to 20 do
 begin
  a[i] := Random(101) - 50;
  Write(a[i], ' ');
 end;
 WriteLn;
 n := 0;
 for i := 1 to 20 do
  if a[i] > 0 then
  begin
   Write(a[i], ' ');
   n := n + 1;
  end;
 WriteLn;
 WriteLn(n);
 ReadLn;
end.
Аслан Шоров
Аслан Шоров
54 685
Лучший ответ
школьники, учите информатику. тут работы на 20 минут + 10 минут на отладку кода. и это если с мозгами все плохо. если все норм то можно минут за 10 решить все даже на бумажке без компилятора.
Валера Божко
Валера Божко
9 714

Похожие вопросы