Напишите программу, которая в последовательности целых двузначных чисел определяет сумму чисел, не имеющих - id565945020200113 от ДавыдоваЮлия5689 13.01.2020 21:13

Question

Информатика: Напишите программу, которая в последовательности целых двузначных чисел определяет сумму чисел, не имеющих цифру 6. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

ДавыдоваЮлия5689 · Accepted Answer

Турбо Паскаля нет, вставьте первым оператором Uses CRT

const
n = 20;

var
x: array[1..n] of real;
i: integer;
sp, sn: real;

begin
Randomize;
Write('Элементы массива: ');
sp := 0; sn := 0;
for i := 1 to n do
begin
    x[i] := (Random(101) - 50) / 1.33;
    Write(x[i]:0:5, ' ');
    if x[i] > 0 then sp := sp + x[i]
    else if x[i] < 0 then sn := sn + x[i]{нули тоже сюда, они не мешают}
end;
Writeln(#13#10, 'Сумма положительных=', sp:0:5, ', отрицательных=', sn:0:5)
end.

Тестовое решение:
Элементы массива: 3.75940 21.80451 -16.54135 9.77444 10.52632 -7.51880 32.33083 -23.30827 12.03008 -3.00752 25.56391 24.81203 24.06015 -9.02256 -11.27820 34.58647 25.56391 9.02256 -27.06767 6.01504
Сумма положительных=239.84962, отрицательных=-97.74436

MOGZ ответил