Меню сайта

Задача №62

Вывестиположительные элементы массива Х(к) затем отрицать элементы массива У(м) икол-во выведенных чисел.

uses crt-

varm,num,i,k:integer-

x:array[1..10000]of integer-

y:array[1..10000]of integer-

begin

clrscr-

writeln(‘Введите размер массива x(k)’)-

readln(k)-

writeln(‘Введите размер массива y(m)’)-

readln(m)-

writeln(‘Введите элементы массива x(k)’)-

FOR i := 1 TO k do

begin

readln(x[i])-

end-

writeln(‘Введите элементы массива y(m)’)-

FOR i := 1 TO m do

begin

readln(y[i])-

end-

writeln(‘Положительные элементы массива x(k)’)-

FOR i := 1 TO k do

begin

IF x[i] &gt- 0 THEN

begin

writeln (x[i])-

num := num + 1-

end-

end-

writeln(‘Отрицательные элементы массива y(m)’)-

FOR i := 1 TO m do

begin

IF y[i] &lt- 0 THEN

-begin

-writeln(y[i])- num := num + 1-

end-

end-

writeln(‘Количество выведенных элементов ‘, num)-

end.

Категория: Массивы | Дата: 05.12.12

Меню раздела
Блок