Задание - написать программы: 1. Дан двумерный массив заполнить его целыми случайными числами из интервала - id1593920520220216 от buster43 16.02.2022 22:28

Question

Информатика: Задание - написать программы: 1. Дан двумерный массив заполнить его целыми случайными числами из интервала от -30 до 50. Все положительные элементы ОМ заменить на 5, а отрицательные на 7. 2. Дан двумерный массив заполнить его целыми случайными числами из интервала от -40 до 60.Найти произведение положительных и сумму отрицательных элементов ОМ. ОМ-одномерный массив с array

buster43 · Accepted Answer

1)var    a, n, s: integer; begin    write( n = );    Readln(n);        a := 1;    while a = n do    begin        s := s + a;        a := a + 1;    end;    writeln(s); end.2)var    a, n: integer; begin    write( n = );    Readln(n);    a := 1;    while a = n do    begin        writeln(2 * a);        a := a + 1;    end; end.3)var    a, b: integer; begin    write( Введите числа a и b: );    Readln(a, b);        while a = b do    begin        writeln(a, ^2 = , sqr(a));        a := a + 1;    end; end....

MOGZ ответил