Задачи pascal.(34б)
Если все элементы одномерного массива положительные то вывести сообщение "УСЛОВИЕ ВЫПОЛНЯЕТСЯ" иначе "УСЛОВИЕ НЕ ВЫПОЛНЯЕТСЯ"
Дан массив из N ЭЛЕМЕНТОВ. Определить произведение элементов кратных заданному k(k-задается с клавиатуры).
Дан массив из N элементов.Определить ПРОИЗВЕДЕНИЕ тех элементов,которые кратные 3.

это точно для задачи "Если все элементы одномерного массива положительные то вывести сообщение "УСЛОВИЕ ВЫПОЛНЯЕТСЯ" иначе "УСЛОВИЕ НЕ ВЫПОЛНЯЕТСЯ" "

)))))

var k,a,b,c:integer;beginwriteln('введите первое число');readln(a);writeln('введите второе число');readln(b);writeln('введите третье число');readln(c);writeln('введите число k');readln(k);if a mod k = 0 thenwriteln('Первое число кратно k')elsewriteln('Первое число не кратно k');if b mod k = 0 thenwriteln('Второе число кратно k')elsewriteln('Второе число не кратно k');if c mod k = 0 thenwriteln('Третье число кратно K')elsewriteln('Третье число кратно k');end.Это первая задача!