Скласти алгоритм і блок-схему для задачі: Клієнт банку вніс на депозит у сумі S грн під р відсотків річних. Яка сума вкладу буде через n років? Значення S, р і n введіть з клавіатури, а кінцеву суму виведіть на екран.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию! begin var a:= ArrRandom(10, -100, 100);a.Println; Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count); Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum); Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average); if a.Where(t -> t > 0).Count > 0 then Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max) else Writeln('Положительных чисел нет');
Ну, во-первых, ввод чисел в электронную таблицу после позволяет обратиться к каждому числу отдельно и производить с ним какие либо операции, в текстовом редакторе такого не сделать. Во-вторых, электронные таблицы позволяют ссылочно работать с числами, то есть указывать их как элементы формул - ссылаться на них для получения нового значения. В текстовом редакторе такого сделать нельзя. Вообще главное отличие в том, что в текстовом редакторе любое число представляется как строка, и с ним нельзя произвести какие-либо числовые операции, а в электронных таблицах можно. Такой вопрос уже был на сайте
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10, -100, 100);a.Println;
Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count);
Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum);
Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average);
if a.Where(t -> t > 0).Count > 0 then
Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max)
else Writeln('Положительных чисел нет');
end.