Регистрация
айжан65
10.12.2022 21:25
Информатика
Есть ответ 👍

Дан массив а(м), м меньше или равно 20. вывести на печать сумму элементов массива. если она превосходит число 50, в противном случае вывести в печать исходный массив.

201
239
Посмотреть ответы 2

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

linali20041
linali20041
4,7(66 оценок)

program summa;

  uses crt;

  const m=20;

  var a: array[1..m] of integer;

        i,s: integer;

  begin

    for i: =1 to m do

      a[i]: =random(101)-50;

    for i: =1 to m do

      s: =s+a[i];

    if s> 50 then writeln('сумма = ',s) else

      for i: = 1 to m do

          writeln('элемент массива №',i,' равен ',a[i]);

  end.

 

или

 

program summa;

  uses crt;

  const m=20;

  var a: array[1..m] of integer;

        i,s: integer;

  begin

    for i: =1 to m do

      readln(a[i]);

clrscr;

    for i: =1 to m do

      s: =s+a[i];

    if s> 50 then writeln('сумма = ',s) else

      for i: = 1 to m do

          writeln('элемент массива №',i,' равен ',a[i]);

  end.

hamidullinranis
hamidullinranis
4,6(20 оценок)

1) 1101 = 1 * 2^3 + 1 * 2^2 + 0 + 1 * 2^0 = 8 + 4 + 0 + 1 = 13

2) 10 = 1 * 16^1 + 0 = 16 + 0 = 16

3) 35 = 3 * 6^1 + 5 * 6^0 = 23

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