РЕШИТЬ ЗАДАЧУ ** ПАСКАЛЕ 9 КЛАСС ВСЕ РАСПИСАТЬ

Question

РЕШИТЬ ЗАДАЧУ НА ПАСКАЛЕ 9 КЛАСС ВСЕ РАСПИСАТЬ

---

Answer 1

////////////////////////////////////////

Answer 2

Const n=11;
var a,c,b:array [1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln ('Исходный массив:');
for i:=1 to n do begin
a[i]:=random (13)-6;
c[i]:=random (13)-6;
end;
for i:=1 to n do
write (a[i]:3);
writeln;
for i:=1 to n do
write (c[i]:3);
for i:=1 to n do
if a[i]>c[i] then b[i]:=c[i]
 else if a[i]=b[i] then b[i]:=a[i]
else b[i]:=a[i];
writeln;
writeln ('полученный массив');
for i:=1 to n do
write (b[i]:3);
readln;
end.

Comments

1. задаем константу массива, т.е. сколько в нем чисел
2,3. описываем переменные
4. раздел операторов
5. включаем генератор случайных чисел
6. выводим сообщение о том, что будет показано на экране.
7. цикл с параметром для заполнения массивов
8,9 присваиваем случайное число каждому из массивов
11-15. выводы исходных массивов на экран
16-19. сравнивание соответствующих элементов и формирование нового массива
22,23. вывод получившегося массива на экран