Задания.ру
Анонимно
4 часа назад

Циклические алгоритмы.Составьте блок- схему для решения следующих задач:
1) Вводятся 100 чисел.Определить сколько среди них положительных и сколько отрицательных.(Числа вводятся в одну переменную в цикле)
2) Алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма
И НАПИШИТЕ ПРОГРАММУ ДЛЯ КАЖДОЙ ЗАДАЧИ

Ответ

Анонимно
var a,i,b,m:integer;
begin
for i:=1 to 100 do begin
read(a);
if a>0 then inc(b);
if a<0 then inc(m);
end;
writeln(b,' ',m);
end.

var i,a,r:integer;
begin
for i:=1 to 10 do begin
read(a);
r+=a*a;
end;
writeln(r);
end.

Новые вопросы по Информатике

В алфавите DELTA всего восемь букв, а каждое слово может состоять не более чем из двух букв. Какое максимальное количество слов в этом языке?
10 - 11 классы
1 минута назад
Спонсоры олимпиады предоставили оргкомитету N призов для победителей олимпиады. Стоимости всех призов различны и выражаются натуральными числами от 1 до N Перед оргкомитетом возникла задача распредел...
5 - 9 классы
1 минута назад
Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. сколько таких действий надо произвести, чтобы получился нуль. Помогите пожалуйста. Принцип работы должен быть...
10 - 11 классы
1 минута назад
Приведите примеры геометрических моделей пожалуйста
1 - 4 классы
2 минуты назад
Составить программу, которая в каждой строке матрицы B(m,n), m≤10, n≤12, находит модуль суммы отрицательных элементов и сумму положительных элементов. Из найденных элементов сформировать матрицу C(m,3...
Студенческий
3 минуты назад