сервис вопросов и ответовпомогите пожалуйста,очень-очень нужно это решение!! ЗАДАН МАССИВ, СОСТОЯЩИЙ ИЗ N ЭЕЛЕМЕНТОВ. НАЙТИ СУММУ ЕГО ПОЛОЖИТЕЛЬНЫХ
5-9 класс|
|
ЭЛЕМЕНТОВ.
абракадабралоле
27 янв. 2014 г., 15:59:16 (10 лет назад)
DanD2005
27 янв. 2014 г., 18:37:13 (10 лет назад)
var a:array[1..1000] of integer;
i,s,n:integer;
begin
randomize;
readln(n);
s:=0;
for i:=1 to n do begin
a[i]:=random(200)-200;
if (a[i]>0) then s:=s+a[i];
end;
writeln(s);
end.
Ikusha18
27 янв. 2014 г., 19:30:14 (10 лет назад)
var a:array[1..1000] of integer;
i,s,n:integer;
begin
randomize;
write('N = ');
readln(n);
s:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
if (a[i] > 0) then
s:=s+a[i];
end;
writeln('Сумма равна', s);
readln;
end.
Ответить
Другие вопросы из категории
Дано 10-значное число. Выведите все цифры этого числа в обратном порядке по одной, разделяя пробелами. Решить на языке
python
Решить через for и if
как именуются ячейки таблицы? Какая информация может храниться в ячейках? В чём разница между режимом отображения формул и режимом
отображения значений?
помогите пожалуйста очень надо желательно с решением
Дан фрагмент программы
var X, Y: INTEGER;
begin
X := 64; Y := 63;
X := Y - X;
Y := Y - X;
X := X + Y;
WriteLn(X: 3, Y: 3);
в результате его выполнения на экран будут выведены значения:
Читайте также
Решить задачи на языке программирования в Turbo Pascal: 1) Дан массив, состоящий из 10 чисел, значения могут быть
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
помогите плиз очень нужно:превратите одно слово в другое всякий раз заменяя по одной букве так,чтобы новое слово было существительным в именительном падеже
.
а)ночь-?-?-?-?-?-день
б)рота-?-?-?-?-?-полк
в)бант-?-?-?-?-?-коса
г)бег-?-?-?-?-?-?-?-шаг
д)море-?-?-?-?-?-?-суша
е)миг-?-?-?-?-?-?-?-век
помогите очень нужно,учительница ужасно строгая ненавидит меня помогите!
Каждая клетка поля 5x5 кодируется минимально возможным и одинаковым количеством бит. Решение задачи о прохождении "конём" поля записывается
последовательностью ходов посещённых клеток. Определите объём информации в байтах после 15 сделанных ходов? Запись решения начинается с начальной позиции коня.
Помогиите, пожалуйста) ОЧЕНЬ нужно!
ПОМОГИТЕ ПОЖАЛУЙСТА!!ОЧЕНЬ НУЖНО!!
Задание:напишите команды для этого рисунка!
FOR...
CIRCLE...
NEXT...
FOR....
CIRCLE...
NEXT...
Вы находитесь на странице вопроса "помогите пожалуйста,очень-очень нужно это решение!! ЗАДАН МАССИВ, СОСТОЯЩИЙ ИЗ N ЭЕЛЕМЕНТОВ. НАЙТИ СУММУ ЕГО ПОЛОЖИТЕЛЬНЫХ", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.