Задан массив из 10 случайных целых чисел от 0 до 50 . Увеличить в 2 раза элементы массива кратные 5, остальные элементы массива уменьшить в 2 раза.
5-9 класс
|
uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.
Другие вопросы из категории
а) среднее арифметическое нечетных чисел
б) сумму чисел, не превышающих 10
в сумму чисел, кратных 3
На экран выводятся исходные значения и результаты вычислений
Плиз помогите, завтра здать нужно((
Имя файла Библиотека
Файл Шкаф
Папка Полка
Диск Книга
Вложенна папка Название книги
Читайте также
>б) сумму чисел, не превышающих 10
в) сумму чисел, кратных трём
плииз, каждую задачу отдельно.. если не уверенны не пишите.. срочно!!
а) среднее арифметическое нечётных чисел
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
а) среднее арифметическое нечетных чисел
б) сумму чисел, не превышающих 10
в сумму чисел, кратных 3
На экран выводятся исходные значения и результаты вычислений
Плиз помогите, завтра здать нужно((
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.