сервис вопросов и ответовПомогиете решить задачу на паскале
5-9 класс|
|
Зазад массив А размерностью N случайным образом.
Найти сумму всех положительных элементов массива
Oksanamamiy
09 дек. 2016 г., 3:24:31 (7 лет назад)
Valiasusidka
09 дек. 2016 г., 6:19:50 (7 лет назад)
Program p1;
Const N=10;
Var A:array[1..N] of integer;
summa,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i]>0 then
Summa:=summa+a[i];
Writeln('Сумма положительных элементов = ',summa);
End.
Ответить
Другие вопросы из категории
Вопрос по Delphi 7 я делаю тестирующую программу. И хочу, чтобы по ее завершении выводилось сообщение с помощью
showmessage том, сколько баллов я набрал. делаю так:
ShowMessage('вы набрали '+b+' из '+v);
Видимо я допустил ошибку. b,v - переменные целые. (но я пробовал и преображал в строковые с помощью IntToStr) в чем моя ошибка?
Задан массив натуральных чисел размером 30 элементов.Элементы массива могут принимать значения от 1 до 1000.Напишите программу в паскале нахождения и
вывода на экран суммы элементов самой длинной последовательности подряд идущих нечетных элементов массива.Если такой последовательности не существует, то программа должна вывести об этом сообщение.Если таких последовательностей несколько, то суммировать можно элементы любой из них.Входные данные:
program rabota_s_massivom;
const N=30;
var M: array[1..N] of integer;
i,k,s,kmax,reserve:integer;
begin
for i:=1 to N do
readln(M[i]);
......
end.
Однажды 5 ребят(Юра, Толя, Алеша,Коля и Витя) из Москвы,Питера,Новгорода,Перми и Томска собрались за круглым столом.Москвич сидел между Томичем и
Витей, Питеровец между Юрой и Толей,напротив Питеровца сидели Пермк и Алеша. Коля не был никогда в Питере.Юра не был в Москве и Томске.А Томич с Толей регулярно переписываются.В каком городе живет каждый из мальчиков?
Читайте также
Помогите решить задачки на паскале я совсем не разбираюсь в этом!!! 1)Дана таблица со значениями среднемесячных температур в течение года. Составить
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Помогите решить задачи на паскаль.
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.
Вы находитесь на странице вопроса "Помогиете решить задачу на паскале", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.