Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 - Turbo Pascal

Формулировка задачи:

составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем найти произведение элементов с нечетными значениями и количество элементов с четными значениями

Решение задачи: «Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10»

textual
                            Листинг программы 
                        

                            uses crt;
const n=10 ;
var a:array[1..n] of integer;
i:integer;
BEGIN
clrscr;
 for i:=1 to n do
  a[i]:=random(10);
 
   for i:=1 to n do
    write(a[i]:4);
 
    writeln;
 
    for i:=1 to n do
     if i mod 2=0 then
      a[i]:=-a[i];
 
      for i:=1 to n do
       write(a[i]:4) ;
readkey;
END.
                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы