Информатика. Pascal abc

10-11 класс

1) Через оператор for надо решить. Дан ряд чисел от 20 до -10. Найти модуль произведения этих чисел
2) Дан массив. Заменить все положительные элементы нулями и подсчитать их количество

Angelena2013 05 февр. 2014 г., 18:16:54 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

SashaChanov

05 февр. 2014 г., 20:04:50 (10 лет назад)

Program Ranea15Ranea_1;
uses crt;
var i,p:integer;
begin
writeln('***   Alphaues is thinking...   ***');
p:=1;
for i:=-10 to 20 do
    p:=p*i;
writeln('Модуль произведения чисел от -10 до 20 равен ',abs(p));
end.

Program Ranea15Ranea_2;
uses crt;
const
n=20;
var
a:array [1..n] of integer;
i,pos:integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('***          OK             ***');
writeln();
randomize;
{заполняем массив}
for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write (a[i]:4);
    end;
writeln();
{ищем положиетельные элементы, заменяем их нулями, и считаем их количество}
pos:=0;
for i:=1 to n do
    begin
      if a[i]>0 then
        begin
          a[i]:=0;
          pos:=pos+1;
        end;
    end;
{выводим результат}
writeln();
writeln(' Заменено ',pos,' положительных элементов');
end.