Дан массив целых чисел. Выяснить:

1) является ли s-й элемент массива положительным числом;

2) является ли k-й элемент массива чётным числом;

3) какой элемент массива больше k-й или s-й.

Паскаль для Лазаруса.

На 1 пункт:

program mueta;

uses crt;

const n = (любому числу, например 3) ;

var k:array[1 ... n]of integer;

s:array[1 ... n]of integer;

begin

clrscr;

for i:=1 to n do begin

writeln ('введите эл-ты массива s[i]=') ;

readln (s[i]) ;

end;

for i:=1 to n do begin

if s[i]>0

then

writeln ('s[i] положительное число', s[i]) ;

ENd.

2) На второй тоже самое только нужно заменить массив на (k) условие нужно поменять на s[i]mod 2=0