1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода ** экран...

Question

1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями;

2)составьте программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями

Answer 1

program z1;
var
a:array [1..8] of integer;

i: integer;
begin

for i:=1 to 8 do

read(a[i]);

 writeln; 

for i:=1 to 8 do 

 if a[i] < 0

then

write (a[i]);
end.

 

program z2;
var
b:array [1..6] of integer;

i: integer;
begin

for i:=1 to 8 do

read(b[i]);

 writeln; 

for i:=1 to 8 do 

 if b[i] > 0

then

write (b[i]);
end.