Вопрос по информатике:
С клавиатуры вводится натуральное число К. затем последовательно вводятся К чисел с плавающей точкой,не превышающей 10. Найти сумму этих чисел и наименьшее из них
программа на паскале
- 18.11.2017 10:54
- Информатика
- remove_red_eye 14833
- thumb_up 10
Ответы и объяснения 2
Var g:array[1..100] of integer;var k,i:integer;min,s:integer;beginreadln(k);for i:=1 to k dobeginreadln(g[i]);write(g[i]:3);end;writeln;s:=0; min:=10;for i:=1 to k dos:=s+g[i];for i:=1 to k dobeginif (min
- 19.11.2017 06:06
- thumb_up 10
Var k,i: integer;
b,s,min: real;
begin
write('целое число: ');
readln(k); s:=0; min:=10;
for i:=1 to k do
begin write('число: ',i,' '); readln(b);
while b>10 do
begin
writeln('число должно быть меньше 10');
write('повторите ввод: ');
readln(b);
end;
if b
end;
writeln('сумма чисел = ',s);
writeln('наименьшее число = ',min);
end.
- 20.11.2017 23:47
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.