Сформировать одномерный массив с помощью генератора случайных чисел. Количество элементов 10. Диапазон [-20;10]. Нечетные элементы заменить на 1, четные элементы заменить на 0. Вывести массив в столбик.
Решить в Pascal очень срочно пожалуйста
Ответы на вопрос
Ответил kira4715
1
Ответ:
const
n = 10;
var
a: array [1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := Random(11) - 5;
Write(a[i], #32);
end;
Writeln;
Writeln('Полученный массив:');
for i := 1 to n do
begin
if a[i] mod 2 <> 0 then
a[i] := -a[i];
Write(a[i], #32);
end;
Readln
end.
Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
Физика,
7 лет назад
Другие предметы,
7 лет назад
Математика,
8 лет назад
10] of integer ;
var i : integer ;
var sum : integer ;
var ans : real ;
begin
Randomize ;
sum : = 0 ;
for i : = 1 to 10 do begin
mass[i] : = Random (41) - 20 ; write(mass[i], ' ') ;
end ;
for i : = 1 to 10 do
sum + = mass[i] ; ans : = sum / 10 ;
writeln('Otvet : ', ans) ;
end.