Маша рассказала толе, что считает трехзначное число красивым, если в нём полусумма максимальной и минимальной - id999562220211228 от BellaNow 28.12.2021 04:17

Question

Информатика: Маша рассказала толе, что считает трехзначное число красивым, если в нём полусумма максимальной и минимальной по значению цифр равна оставшейся цифре числа. толе впечатлить машу – написать программу, которая будет определять красивые числа. выведите для красивого числа фразу вы ввели красивое число , а для остальных - жаль, вы ввели обычное число . формат ввода строка, содержащая трехзначное число. формат вывода вердикт программы-строка. пример 1 ввод вывод 135 вы ввели красивое число пример 2 ввод

BellaNow · Accepted Answer

1)
const n=?; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
s:=0;
k:=0;
for i:=1 to n do
begin
s:=s+a[i];
k:=k+1;
end;
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
readln;
End.

2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if (i mod 2)=0 then
if a[i]>max then
max:=a[i];
for i:=1 to n do
if (i mod 2)<>0 then
if a[i]<min then
min:=a[i];
writeln('max=',max);
writeln('min=',min);
readln;
End.

MOGZ ответил