Решите на языке си с клавиатуры ввести три действительных числа. затем округлить их значение для близких - id168400520221026 от DOTA2олежа 26.10.2022 14:06

Question

Информатика: Решите на языке си с клавиатуры ввести три действительных числа. затем округлить их значение для близких целых чисел. определить наименьшее общее кратное (нок) полученных целых чисел. если оно равно произведению этих чисел, то вывести соответствующее сообщение.

DOTA2олежа · Accepted Answer

PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)

var
n:integer;
a:array[1..100] of integer;
begin
write('Введите размер массива (n<100): ');readln(n);
var max:=0;
var min:=101;
for var i:=1 to n do
begin
a[i]:=random(0,100);
write(a[i],' ');
if i mod 2=0 then
if a[i]>max then max:=a[i]
else
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Максимальный - ',max);
writeln('Минимальный - ',min);
readln;
end.

Пример:

Введите размер массива (n<100): 10
15 32 90 97 35 62 52 37 5 63
Максимальный - 97
Минимальный - 37

MOGZ ответил