Регистрация
bambam4
10.07.2021 01:18
Информатика
Есть ответ 👍

1. ввести четыре числа с клавиатуры, вычислить произведение любых первых двух, вторых двух чисел, вывести значения этих произведений чисел, наибольшее произведение. 2. массив: найти максимальный элемент массива, вывести на экран.

281
372
Посмотреть ответы 2

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

Мадинакадырова06
Мадинакадырова06
4,7(32 оценок)
2)  массив: найти максимальный элемент массива, вывести на экран.   var mas : array of integer;   i ,  n  ,  max : integer; begin   randomize;   writeln('введите n - число элементов одномерного массива ');     readln(n);     setlength(mas,n);     for i : = 1   to n do      mas[i] : = random(100);     max : = mas[1];     for i : = 1 to n do      begin      if max < mas[i] then        max : = mas[i];       end;     for i : = 1   to n do      write(mas[i], ' ');       writeln;       writeln('max = ',max);   readln; end.
HarryPotter2015
HarryPotter2015
4,7(28 оценок)
Var a, b, c: integer;

begin
readln (a, b, c);
writeln ((5*a-3) * (4-3*b) + c);
end.

поясняю за код:


первой строкой задаём переменные (аbc) и обозначаем их тип (здесь: integer - целые числа, при необходимости - замени на числа с плавающей точкой);

второя строчка - для красоты, необязательна;

третья - начало программы;

четвертая - считывает с клавиатуры переменные аbc;

пятая - выводим на экран результат выражения,

шестая строка - конец.

---так же можно было задать новую переменную d (что бессмысленно, но, наверное, пока именно этот вариант тебе подойдёт)

var a, b, c, d: integer;

begin
readln (a, b, c);
d: =((5*a-3) * (4-3*b) + c);
writeln(d)
end.

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