Program PainNagato;
uses crt;
const n=3;
var i,j:integer;
a:array[1..n] of integer;
b:array[1..n,1..n] of integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
for i:=1 to n do
begin
write('Введите ',i,'-е число ');
readln(a[i]);
end;
writeln('Результат: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
b[i,j]:=a[i]-3*a[j];
write(b[i,j]:5);
end;
writeln;
end;
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(12);
Writeln('Номер первого отрицательного элемента: ',a.FindIndex(t->t<0)+1);
end.
<u>Пример</u>
36 20 -13 50 14 27 -1 26 -14 -17 -15 42
Номер первого отрицательного элемента: 3
<u>Замечание:</u> Значения всех 12 элементов вводятся с клавиатуры
На три вроде),...........................