Перевод чисел із м- км і навпаки із км - м. При цьому для вашаго користувача повинна викидуватися підсказка, - id1761131020200129 от DANIKom 29.01.2020 03:17

Question

Информатика: Перевод чисел із м- км і навпаки із км - м. При цьому для вашаго користувача повинна викидуватися підсказка, що саме йому потрібно вводити чи це будуть метри чи це потрібно ввести кілометри. Але після того як він зробить вибір що саме потрібно переводити.

DANIKom · Accepted Answer

Program pr1;

uses crt;

var

n:byte; // Размерность массива

i:byte; // Счетчик массива

a:array[1..20] of real; // Массива чисел

S:real; // Сумма чисел

Begin

clrscr;

write('Введите размерность массива: ');

readln(n);

writeln('Введите ',n,' элементов');

// Блок ввода

for i:=1 to n do

readln(a[i]);

// Блок вывода

writeln('Исходный массив');

for i:=1 to n do

write(a[i]:6:1,' ');

writeln;

readln;

// Блок инициализации

S:=0;

for i:=1 to n do

if(a[i]<5) then

S:=S+a[i];

readln;

writeln('S= ',S);

End.

MOGZ ответил