Одномерный массив 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками,а элементы равные 5 нулям
5-9 класс
|
и.Вывести на экран монитора первоначальный и преобразованный массивы в столбик.
const n = 7;
var A: array [1..n] of integer;
i: integer;
begin
writeln('Начальный вид массива:');
for i := 1 to n do
begin
A[i] := 5 + random(31);
writeln('A[', i, ']=', A[i]:3);
end;
writeln('Конечный вид массива:');
for i := 1 to n do
begin
if A[i] > 15 then A[i] := 8;
if A[i] = 5 then A[i] := 0;
writeln('A[', i, ']=', A[i]:3);
end;
readln
end.
Другие вопросы из категории
1)Игровой автомат выдает целые числа от 0 до 10 если выпадает 7, то выйгрыш.
2)Игровой автомат получает 3 случайных числа от 0 до 10, если числа совпадут, то выйгрыш
3)Вывести на экран 10 случайных чисел от 0 до 100, и определить сколько из них чётных
Очень надо к завтрашнему дню, заранее спасибо.
Читайте также
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.
10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
значение предыдущего,при этом первому элементу должно присвоиться значение последнего элемента таблицы. Вывести на экран монитора первоначальный и преобразованный массивы в столбик(столбики должны быть расположены рядом).
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.