сервис вопросов и ответовнайти количество положительных элементов в массиве А[1..10]
10-11 класс|
|
Rustem2778
25 окт. 2014 г., 4:02:44 (9 лет назад)
Baranovskaya19
25 окт. 2014 г., 6:18:51 (9 лет назад)
Program z1;
const n=10;
var A: array [1..n] of integer;
i,k:integer;
begin randomize;
For i:= 1 to n do begin
A[i]:=random (21)-10;
write (A[i]:4);end;
k:=0;
For i:=1 to n do
begin
If A[i]>0 then k:=k+1;end;
Writeln;
writeln('k=',k);end.
Ответить
Другие вопросы из категории
ПОМОГИТЕ ПОЖАЛУЙСТА!!! МОЖНО ТОЛЬКО ПРОГРАММУ. НЕ МОГУ РАЗОБРАТЬСЯ КАК СДЕЛАТЬ...
Составить программу на Паскале (желательно и выполнить).
С клавиатуры ввести 10 элементов массива (целые числа). Вывести исходный массив. Заменить элементы на противоположные и вывести получившийся массив (в строку).
Декодировать изображение с разрешением 16х16 точек и глубиной цвета 1 бит.
Найти объем видеопамяти.
Код: 07E01818200440024C328C3180018181818190099009481247E22004181807E0
Читайте также
1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Написать программу на Pascal ABC.Дан целочисленный массив размера N. Вычислить сумму и количество положительных элементов,
произведение и количество отрицательных элементов, произведение элементов до
первого отрицательного. Отсортировать массив по возрастанию.
Найти сумму положительных элементов линейного массива целых чисел. Размерность массива - 10. Заполнение массива осуществить с клавиатуры.
Программу надо написать через МАССИВЫ!!!
Помогите пожалуйста, срочно!!!)
Помогите, пожалуйста!! Язык программирования Паскаль.
1) Найти количество отрицательных элементов в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] заменить элементы главной диагонали на 0.
Всё нужно очень срочно
Вы находитесь на странице вопроса "найти количество положительных элементов в массиве А[1..10]", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.