Решение задач с массивами

Заполнить массив двадцатью случайными числами в пределах от 1 до 99, распечатать их в одну строку, а на следующей строке распечатать тот же массив в обратном порядке, выделив цветом числа, кратные трём.

program massiv1; uses crt; var a:array[1..20] of integer; i:integer; begin randomize; clrscr; for i:=1 to 20 do begin a[i]:=1+random(99); write(a[i],’ ’); end; writeln; for i:=20 downto 1 do begin if a[i] mod 3=0 then textcolor(12) else textcolor(15); write(a[i],’ ’); end; end.

Следующая программа вводит с клавиатуры десять чисел, располагает их в одну строку и печатает на следующей строке, каких чисел больше, чётных или нечётных, и на сколько.

Перед циклом проверки и распечатки переменные kc и kn (количество чётных и количество нечётных) обнулим. Чётным элемент массива является в том случае, если делится на два без остатка, то есть, остаток (mod) при делении на 2 равен 0. В этом случае мы увеличиваем (inc) счётчик чётных чисел на 1. Если это не так, увеличиваем на 1 счётчик нечётных чисел.

program massiv2; var n:array[1..10] of integer; i,kc,kn:integer; begin for i:=1 to 10 do begin write(’N[’,i,’]=’); readln(n[i]); end; writeln; kc:=0; kn:=0; for i:= 1 to 10 do begin write(n[i],’ ’); if n[i] mod 2=0 then inc(kc) else inc(kn); end; if kc>kn then writeln(’Чётных больше на ’,kc-kn) else if kn>kc then writeln(’Нечётных больше на ’,kn-kc) else writeln(’Чётных и нечётных поровну’); end.

Два массива заполнены двадцатью случайными числами в пределах от 1 до 5. Программа заполняет третий массив элементами, совпадающими в первых двух массивах, а на месте остальных ставит нули.

program massiv3; var a,b,c:array[1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=1+random(5); write(a[i]:3); end; writeln; for i:=1 to 20 do begin b[i]:=1+random(5); write(b[i]:3); end; writeln; for i:=1 to 20 do begin if a[i]=b[i] then c[i]:=a[i] else c[i]:=0; write(c[i]:3); end; end.

В этой программе при распечатке массивов мы не использовали, как раньше, пробел для разделения чисел, а указали после двоеточия, сколько знаков предоставить для числа. Это удобно, когда массивы располагаются на нескольких строках: числа будут столбиком друг под другом.

<28 29 303132 33 34 >

Дата добавления: 2014-12-18; просмотров: 808;