Ввести с клавиатуры 10 чисел и найти сумму отрицательных чисел.(Паскаль)
10-11 класс
|
Fufti
14 марта 2014 г., 8:21:41 (10 лет назад)
Tsisa95
14 марта 2014 г., 10:58:52 (10 лет назад)
Var i,k,s:integer;
begin
writeln ('Введи 10 чисел');
for i:=1 to 10 do
begin
readln (k);
if k<0 then s:=s+k;
end;
writeln (s);
end.
Ответить
Другие вопросы из категории
Привет, решите пожалуйста задачу в pascal abc
Смотрим фотку!
Спасибо заранее!
Ребятки, помогите пожалуйста! Нужно решить задачку с помощью программирования языка Паскаля
Найдите любое трёхзначное число, кратное заданному P и не равное ему.
Читайте также
составить программу 1)найти сумму всех элементов массива (1до10) random. 2)сформировать массив из положительных и отрицательных элементов
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
1)ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Вы находитесь на странице вопроса "Ввести с клавиатуры 10 чисел и найти сумму отрицательных чисел.(Паскаль)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.