program raf105;
const
n = 3;
var
a:array[1..n,1..n] of integer;
i,j:integer;
x:boolean;
begin
for i:=1 to n do
begin
writeln('Введите три элемента строки №',i,' по очереди');
for j:=1 to n do
readln(a[j,i]);
end;
writeln('Номера строк в которых все элементы положительные и чётные:');
for i:=1 to n do
begin
if x
then writeln(i-1);
x:= true;
for j:=1 to n do
if x and (not(a[j,i]>0)) or (not((a[j,i] mod 2)=0))
then x:=false
end;
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Только приветствие , ничего больше не несет
Кнопки расположены на клавиатуре так чтобы бвло удобнее писать:пропорциально распределены гласные и согласные. В центр5 самы часто используемые буквы, по окраинам-менее используемые. Расположение кнопок на клавиатуре было придумано с развитием печатных машинок1для удобства использования.
Var
a : array [1..100] of integer;
i, sum : integer;
begin
for i := 1 to 100 do read (a[i]);
sum := 0;
for i := 1 to 100 do sum := sum + a[i];
write (sum);
end.