Только 5(заранее спасибо).
5-9 класс
|
var a:array [1..10] of real;
sum:real;
i:integer;
begin
randomize;
{Формирование массива}
for i:=1 to 10 do
begin
a[i]:=random*117-7; {начинаем от -7. От -7 до 110 находится 118 чисел, т.к. 110 не должно входить в промежуток, то 118-1=117}
writeln (a[i]:10:2);
end;
{Подсчет суммы положительных чисел в массиве}
for i:=1 to 10 do
if a[i]>0 then sum:=sum+a[i];
writeln(' sum= ', sum:10:2);
end.
Другие вопросы из категории
Читайте также
Программа должна спрашивать:
- сколько человек было поставлено на заявку.
- сколько человек присутствовало на занятиях.
- сколько стоит обед для одного учащегося.
Помогите пожалуйста, очень нужно, только правильно, заранее спасибо.
4-значных «приятных» чисел. Решение обязательно, не только ответ. Заранее спасибо большое
алгоритмы...
Заранее спасибо. Завтра информатика, а я порой не понимаю некоторое. =)
1-принципы печати.
2-достоинства.
3-недостатки.
4-фирма.
5-разрешение.
6-скорость.
7-объём внутренной памяти.
8-способ подключения к компьютеру.
9-формат бумаги.
10-цена.
Только прошу, пожалуйста, не надо скидывать текст, напишите просто ответы, заранее спасибо:)
1. Составтьте для вычислителя наиболее короткую программу получения из числа 1 чисел 5, 50 и 99. СКОБКИ ИСПОЛЬЗОВАТЬ НЕЛЬЗЯ!!!