Составить программу которая создаёт массив случайных чисел, выводит его на экран и вычисляет сумму всех его элементов.
10-11 класс
|
program jfe3;
const n=10; {Это будет кол-во элементов массива}
var a:array [1..n] of integer; i,s:integer;
begin
for i:=1 to n do begin
a[i]:=random(100); {элемент выбирается случайно от 0 до 100}
s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i:=1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось}
end.
Если есть вопросы по программе, пиши в личку. Если надо что-то еще - тоже =)
Удачи)
Другие вопросы из категории
1. непрерывную во времени и по значению величину;
водоема предназначенное для стоянки кораблей
b1.c1 5) baa.cmd 6) b12.cpp 7) ba.c10 8) ba.c2
угадывании целого числа в некотором диапазоне было получено 6 бит информации.Сколько чисел содержит этот диапазон?
Задача 3.Выполните перевод чисел в соответствующую систему счисления.
145(10)=?(2);
543,75(10)=?(2)
1101111,001(2)=?(10)
Читайте также
Прошу помочь, очень срочно!
Создать массив случайных чисел, вывести его на экран в строчку. Из массива удалить все элементы, принадлежащие заданному интервалу
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.