Решите, пожалуйста, в паскале. 1) Одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1

до 6. Найти произведение квадратов отрицательных элементов массива, массив вывести в строку. 2) Одномерный массив задан формулой A[i]=21-1. Найти полу сумму элементов массива.
Аноним
1446
1
22 сентября
23:36

Ответ или решение

отвечает Калашникова Юля
04 ноября
22:42

Условие первой задачи можно понять двояко. Поэтому высылаю два решения.

Пусть i – порядковый номер элементов массива а.

Программа на языке Pascal ABC может выглядеть так:

program zadaca1;

uses crt;

var i:integer;

a:array[1..10] of real; {Описание исходного массива}

begin

for i:=1 to 10 do  begin

a[i]:=random(6+1+1)-1; {Формирование массива случайным образом}

write(a[i],' '); {Вывод элементов исходного массива на экран}

end;

writeln;

for i:=1 to 10 do 

if a[i]<0 then

begin

a[i]:=sqr(a[i])*sqr(a[i]); {Формирование нового массива}

write(a[i],' '); {Вывод элементов нового массива на экран}

end else write(a[i],' ')

end.

Или так:

Var a: array[1..10] of integer;

    i,s: integer;

    priz: boolean;

begin

  randomize;

  write('массив:  ');  s:=1;

  priz:=false;

  for i:=1 to 10 do

   begin

    a[i]:=random(6+1+1)-1;

    write(a[i],' ');

    if a[i]<0 then

    begin

      s:=s*sqr(a[i]);

      priz:=true;

    end;

    end;

  writeln;

  if priz then    writeln('произв. квадратов отрицат. элем. =',s)

  else writeln('нет отрицательных элементов');

  end.

 А вот условие второй задачи некорректно.

Знаете ответ?

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

посмотреть все