375,42 Гб есть _----------------------
На 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
Визитка города2.история города3.дстопримичательности
Петя не может быть правым в обоих случаях так как получиться что и петя и женя написали на 5, а тк не может быть по условию. дальше подбираем под петю два оставшихся случая, при том что петя сказал 2 раза правду, но этого не может быть т.к. тогда женя говорит либо 2 неправды либо 50на50, говоря две неправды он противоречит пете о том что он не писал на 5 а говоря правду неправду противоречит и пете и саше. значит петя определенно сказал правду неправду, тогда подставив жене неправду а саше правду получаем что на 5 написал петя.