Помогите сделать информатики (через Паскаль и схему надо тоже)
5-9 класс
|
Maksim10naumcik
02 окт. 2013 г., 22:50:13 (10 лет назад)
Anzhelika020120
03 окт. 2013 г., 1:03:25 (10 лет назад)
const n = 10; var a :array [1..n] of integer; i, sum :integer;
begin
for i:= 1 to n do readln(a[i]); sum:= 0; for i:= 1 to n do if a[i] > 0 then sum:= sum + a[i]; writeln(sum); end.
Ответить
Другие вопросы из категории
Читайте также
Помогите сделать информатику!
Нахождение площади и периметра прямоугольника.написать программу надо
Вы находитесь на странице вопроса "Помогите сделать информатики (через Паскаль и схему надо тоже)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.