1. Напишите программу, которая генерирует 10 случайных чисел от 1 до 20,выводит числа на экран и вычисляет их сред арифм.
5-9 класс
|
2.
Задача 1
Var i,sum:integer;
mas:array [1..10] of integer;
Begin
for i:=1 to 10 do begin
mas[i]:=random(20);
write(' ',mas[i]);
sum:=sum+mas[i];
end;
writeln;
write('Среднее арифметическое этих чисел = ',sum/10);
End.
Задача 2
Var i,max:integer;
Begin
readln(i);
while (i<>0) do begin
if (i>max) then max:=i;
readln(i);
end;
Writeln('Максимальное число: ',max);
End.
Другие вопросы из категории
Какой объём памяти (в Мбайт) заняла бы эта книга, если бы Лев Николаевич
набирал её на компьютере в одной из кодировок Unicode? На одной странице
в среднем помещается 64 строки, а в строке 64 символа. (Каждый символ
в кодировке Unicode занимает 16 бит памяти.)
1) 4 2) 8 3) 32 4) 8192
Читайте также
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
выводит на экран числа оканчивающиеся на 1
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.