Регистрация
aidar2002032
27.02.2022 06:15
Информатика
Есть ответ 👍

1фут=30см. составить программу перевода футов в метры для растояний от 50 до 80 футов

190
471
Посмотреть ответы 2

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

jumalieva03
jumalieva03
4,5(2 оценок)
3,3фута-1 метр и подбирай числа
алинтен
алинтен
4,5(31 оценок)

program XieLian;

var n,max ,sum, i:integer;

var A: array [1..100] of integer;

begin

writeln('введите количество чисел');

readln(N);

if (n<=0) then

writeln('ошибка')

else

for i:=1 to n do

begin

write('A[',i,']=');

readln(A[i]);

end;

writeln('введенная строка');

for i:=1 to n do

write(A[i]);

writeln;

max:=A[1];

for i:=1 to n do

if A[i]>max then

max:=A[i];

writeln(max,' -большее число');

sum := 0;

while max > 0 do

begin

sum := sum + max mod 10;

Max := max div 10;

end;

writeln(sum,' -сумма');

end.

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