Предмет: Информатика,
автор: NikiStar
Одномерный массив 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками,а элементы равные 5 нулями.Вывести на экран монитора первоначальный и преобразованный массивы в столбик.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Психология,
автор: Karinka154
Предмет: Математика,
автор: andreyzavyalov00654
Предмет: Русский язык,
автор: neji14
Предмет: Обществознание,
автор: Simon2033