Циклические алгоритмы.составьтециклические алгоритмы.составьте блок- схему для решения следующих : 1) вводятся 100 чисел.определить сколько среди них положительных и сколько отрицательных.(числа вводятся в одну переменную в цикле) 2) алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма и напишите программу для каждой
seluchka
1
06.06.2019 03:10
2
Другие вопросы по теме Информатика
bohdan4ever
30.07.2019 22:20
GTmoonsoonall
30.07.2019 22:20
DiDUFC
30.07.2019 22:20
polina11111334944849
30.07.2019 22:20
wiwhha
16.09.2021 23:38
dubonosova37
16.09.2021 23:28
lovchike
05.10.2019 23:40
sashabisaev030303
19.01.2021 15:23
Популярные вопросы
- Апта бойында ауа райы қалай өзгерді? дүйсенбіСейсенбісәрсенбібейсенбіжұмасенбіжексенбі...
1 - Спишите пословицы. Раскройте скобки 1) С волками жить — (по) волчьи Выть.2) Швея...
1 - A Төменде берілген тірек сөздерге сүйеніп, мәтіндегі негізгі ақпараттарды ретімен...
2 - к 70 г воды добавили 15 г соли вычислите массовую долю растворенного вещества в...
2 - Тест сұрақтары 1. Адам және сүтқоректілерде 6. Фотосинтездің соңғы өнімі қанның...
2 - математика у меня аккаунт ребята удалили с статусом ученый...
1 - Укажи средние члены пропорции a/x=z/d...
3 - Завдання 105 Підкресліть словосполучення, визначте й надпишіть тип синтаксичного...
2 - Махамбет Өтемісұлы что он ждал ?...
3 - Розв’яжіть графічно систему рівнянь {х2+у2=4 у=-х-2 Завдання 5.Знайдіть два числа,...
3
var a,i ,b,c:integer;
begin
b:=0
c:=0
for i = 1 to 100 do
begin
readln (a);
if a>0 then
b:=b+1;
if b<0 then
c:=c+1;
end;
writeln (b);
writeln (c);
end.
2)
var a,b,i:integer;
begin
b:=0;
for i = 1 to 10 do
begin
readln (a);
a:=a*a;
b:=b+a;
end;
writeln (b);
end.
вроде так