Создать программу вычисления доходов по вкладу. исходным данным является 1)величина вклада 2)срок вклада - id274730220220917 от roman81rudi 17.09.2022 22:54

Question

Информатика: Создать программу вычисления доходов по вкладу. исходным данным является 1)величина вклада 2)срок вклада 3)процентная вставка исходные данные вводятся с клавиатуры. формула для расчет дохода по вкладу =( величина вклада * процентная вставка / 100) / 365 * срок вклада программа: program a1; var p, s, v, d: real; begin write (` процентная вставка : `) ; readln ( p) ; write (` величина вклада : `) ; readln (v) ; write ( ` срок вклада : ` ) ; readln (s) ; d : = ( v * p/ 100)/( 365* s) ; writlen ( `

roman81rudi · Accepted Answer

// PascalABC.Net 3.0, сборка 1052
const
nn=100;
var
i,n:integer;
a:array[1..nn] of integer;
p:real;
begin
Write('Количество элементов в массиве: '); Read(n);
Writeln('Исходный массив');
for i:=1 to n do begin
    a[i]:=Random(51)-25;
    Write(a[i],' ')
end;
Writeln;
p:=1;
Writeln('Нечетные элементы:');
for i:=1 to n do begin
    if a[i]<0 then p:=p*a[i];
    if a[i] mod 2 <> 0 then Write(a[i],' ')
end;
Writeln;
Writeln('Произведение отрицательных элементов: ',p)
end.

Тестовое решение:
Количество элементов в массиве: 20
Исходный массив
-18 -9 18 15 7 -20 -4 18 -24 -6 -24 2 -3 -10 12 -4 19 4 0 -17
Нечетные элементы:
-9 15 7 -3 19 -17
Произведение отрицательных элементов: -91371110400

MOGZ ответил