Ввести с клавиатуры массив из 5 элементов, найти кол-во отрицательных элементов
5-9 класс
|
var
i,sum:Integer;
A:Array[1..5] of Integer;
Begin
for i:=1 to 5 do
Read(A[i]);
for i:=1 to 5 do
if (A[i]<0) then sum:=sum+A[i];
Writeln(sum);
end.
Другие вопросы из категории
камера", видео лагает, а звук отстаёт (снимал прохождение больших игр).
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
c клавиатуры
массив из 5 элементов, найти минимальный из них.
ИНФОРМАТИКУ НЕ ПОНИМАЮ,И ТЕМА НОВАЯ.
ВВЕСТИ С КЛАВИАТУРЫ МАССИВ ИЗ ДВАДЦАТИ ЦЕЛЫХ ЧИСЕЛ,ОБНУЛИТЬ ВСЕ ОТРИЦАТЕЛЬНЫЕ ЭЛЕМЕНТЫ,ВЫВЕСТИ МАССИВ НА ЭКРАН,ПОМЕНЯТЬ МЕСТАМИ ПЕРВЫЙ И ДВАДЦАТЫЙ ЭЛЕМЕНТ,ВЫВЕСТИ МОДИФИЦИРОВАННЫЙ МАССИВ.
ну пожалуйстаа:((((
минимальный элемент находится в первой
половине массива увеличить каждый четный элемент массива в два раза, в противном случае массив
оставить без изменения. Вывести новый
массив на экран в виде строки.