Аленусик
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.
0 votes Thanks 0
Аленусик
1. задаем константу массива, т.е. сколько в нем чисел 2,3. описываем переменные 4. раздел операторов 5. включаем генератор случайных чисел 6. выводим сообщение о том, что будет показано на экране. 7. цикл с параметром для заполнения массивов 8,9 присваиваем случайное число каждому из массивов 11-15. выводы исходных массивов на экран 16-19. сравнивание соответствующих элементов и формирование нового массива 22,23. вывод получившегося массива на экран
Answers & Comments
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.
2,3. описываем переменные
4. раздел операторов
5. включаем генератор случайных чисел
6. выводим сообщение о том, что будет показано на экране.
7. цикл с параметром для заполнения массивов
8,9 присваиваем случайное число каждому из массивов
11-15. выводы исходных массивов на экран
16-19. сравнивание соответствующих элементов и формирование нового массива
22,23. вывод получившегося массива на экран