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

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

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

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы