Регистрация
glebik28898
11.03.2022 01:34
Информатика
Есть ответ 👍

Синформатикой, . (pascal) 1.сложить четные элементы в массиве (10 рандомных элементов в диапазоне от 0 до 99). 2.найти произведение всех элементов массива (10 рандомных элементов от 0 до 99) 3.сложить все элементы массива в диапазоне от 50 до 60(10 рандомных элементов от 0 до 99)

250
280
Посмотреть ответы 2

Ответы на вопрос:

nikitos3567
nikitos3567
4,4(88 оценок)
Program vasha_zadacha_1; var b,c: integer;     a: array [1..20] of integer;   begin  randomize;   b: =0;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     if (a[c] mod 2 = 0) then b: =b+a[c];     end;   writeln('сумма чётных элементов массива', b);   end.program vasha_zadacha_2; var b,c: word ;   a: array [1..20] of integer;   begin  randomize;   b: =1;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     b: =b*a[c];     end;     writeln('произведение всех элементов массива ', b);   end.program vasha_zadacha_3; var b,c: word ;   a: array [1..20] of integer;   begin  randomize;   b: =0;   for c: =1 to 10 do begin    a[c]: =random(0,99);     writeln('элемент массива ==> ', a[c]);     if (a[c] > = 50) and (a[c]< =60) then b: =b+a[c];     end;   writeln('сумма элементов в диапазоне от 50 до 60 ', b);   end.
pro100skill132
pro100skill132
4,7(27 оценок)

Программа:

Python:

while True:

   n = int(input('Введите число: '))

   if n > 0:

       print(n * n)

       break

   else:

       print('Ошибка. Введено неправильное число')

Pascal:

var

 n: integer;

begin

 while True do begin

   write('n = '); readln(n);

   if n > 0 then begin

     writeln(n * n);

     break

   end

   else writeln('Ошибка. Введено неправильное число');

 end;

end.

Популярно: Информатика