Решить в цикле с пред условием Дано N произвольных чисел найти их сумму и вывести на экран. Решить в паскале Помогите пожалуйста.
5-9 класс
|
var
i, n, summ, c:integer;
begin
randomize;
write('n = '); readln(n);
i := 0;
summ := 0;
writeln('Исходные числа');
while i < n do
begin
c := random(21) - 10;
write(c, ' ');
summ := summ + c;
i := i + 1;
end;
writeln;
writeln('Сумма чисел равна ', summ);
end.
Другие вопросы из категории
11 минут, ее результаты записываются в файл, сжатие данных не производится. Какое из приведенных ниже чисел наиболее близко к размеру полученного файла, выраженному в мегабайтах?
это за свойство?
а) 2, 4, 6, 8, 10, ... ;
б)2,4,8,16,32,...;
в) 1, 2, 3, 4, 5, ... ;
г) 2, 5, 8, 11, 14, ....
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат