Задан одномерный массив из n элементов. Найти сумму всех неотрицательных элементов массива.
10-11 класс
|
program project1;
uses
crt,math;
const
n=10;
var s:real; i:byte; a:array [1..n] of integer;
begin
for i:=1 to n do begin
writeln('vvedite ',i,' cifru');readln(a[i]);
end;
for i:=1 to n do
begin
if (a[i]<=0) then s:=s+a[i];
end;
writeln('summa vseh: ',s:2:2);
readln;
end.
Другие вопросы из категории
Ирена любит мороженое с фруктами. В кафе был выбор из таких вариантов:
пломбир с орехами; пломбир с бананами; пломбир с черникой; шоколадное с черникой; шоколадное с клубникой.В четырёх вариантах Ирене не нравились или тип мороженого, или наполнитель, а в одном варианте ей не нравились ни мороженое, ни наполнитель. Она попросила приготовить из имеющихся продуктов порцию по своему вкусу.
подвержен воздействию шума, поэтому избыточность кода передачи
составляет 20%. Определите, за сколько времени по каналу будет передан
текст, информационный объём которого составляет 100 Кб.
Читайте также
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.