Написать 2 программы на языке паскаль 1) вывести на экран все произведения n на m, m уменьшается каждый - id63857220200913 от Жыгаа 13.09.2020 14:24

Question

Информатика: Написать 2 программы на языке паскаль 1) вывести на экран все произведения n на m, m уменьшается каждый раз на 2 до 0. пример: ввод m: =10; n: =3; вывод 30 24 18 12 6 2) n меняется от 2 до 7, на экран выводиться m, которое равно n+x. x вводиться с клавиатуры. пример: ввод x: =4; вывод 6 7 8 9 10 11

Жыгаа · Accepted Answer

Проверено на Паскале АВС:

Program byalodenis;
uses crt;
const n=10;
var
e:array[1..n] of integer;
min,max,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
writeln();
writeln('Элементы массива:');
randomize;
e[1]:=random(100)-50;
write (e[1]:5);
max:=e[1];
min:=e[1];
for i:=2 to n do
    begin
      e[i]:=random(100)-50;
      write (e[i]:5);
      if e[i]>max then
        max:=e[i];
      if e[i]<min then
        min:=e[i];
    end;
writeln();
writeln('Сумма максимального и минимального элементов равна ',max+min);
end.

MOGZ ответил