0

Нельзя ли как-то эту часть программы записать в одном цикле? не получается, чтобы выводилось правильно?

for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln;
for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end;
for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln;
for i:=1 to n do begin write(c[i]:6); end;

Обновление

Полный листинг:

const K=100;
var 
  a,b,c:array[1..K] of integer;
  n,i:integer;
begin
  writeln('введи размерности массивов');
  readln(n);
  randomize;
  for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln;
  for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end;
  for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln;
  for i:=1 to n do begin write(c[i]:6); end;
end.
1
  • 1
    @Ekaterina: Записать все циклы в один — это наверное хорошая идея. Но не думайте, что вы от этого получите какое-то «ускорение». Одна наносекунда, выигранная снижением расходов на управление циклами, ничто по сравнению с десятками, а то и сотнями миллисекунд, расходуемых каждой из операций вывода.
    – VladD
    6 июл 2014 в 12:18

1 ответ 1

0

Нет, к сожалению ничего тут нельзя сделать. Цикл будет выводить по очереди массивы a, b и проверять условие. Ps. я надеюсь, что используется в начале программы randomize?

3
  • полный текст const K=100; var a,b,c:array[1..K] of integer; n,i:integer; begin writeln('введи размерности массивов'); readln(n); randomize; for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln; for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end; for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln; for i:=1 to n do begin write(c[i]:6); end; end. 6 июл 2014 в 5:08
  • ну все, тогда больше нечего менять. конечно можно прописать говорящие переменные, но они не особо нужны ;-) 6 июл 2014 в 5:13
  • 1
    ответ, разумеется, неверный. достаточно одного цикла. hint: в метках delphi, а не какой-то turbo pascal 5.0 (да и в нем тоже реализуемо). 6 июл 2014 в 11:12

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.