с++ Данные массивы целых чисел {ai}(i=1,2...,n) и {bj} (j = 1,2 ... ,m), а также целое число k. Если - id1316404020210527 от Rina12346 27.05.2021 14:37

Question

Информатика: с++ Данные массивы целых чисел {ai}(i=1,2...,n) и {bj} (j = 1,2 ... ,m), а также целое число k. Если в массиве aнема ни одного элемента со значением k, то первый по порядку элемент массива, не меньше всех элементов, заменить на значение k. По такому же правилу превратить массив b относительно значению 10

Rina12346 · Accepted Answer

Uses crt;
var item, rub, doll: real;
job: integer;
begin
writeln('Введите курс ру по отношению к дол: ');
read(item);//Вводим курс рубль-доллар
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?');
read(job);//Вводим режим
case job of
2: begin
writeln('Введите кол-во рублей: ');
read(rub);//Вводим рубль
rub := rub / item;
writeln('doll = ',rub);
end;
1: begin
writeln('Введите кол- во долларов: ');
read(doll);//Вводим доллар
doll := doll * item;
writeln('rub = ',doll);
end;
end;
end.

MOGZ ответил