Program aaa;
var A,B: array[1..4,1..4] of integer; i,j,x: byte;
begin
randomize; //запускаем генератор случайных чисел
// формируем и одновременно выводим матрицу
writeln ('Исходная матрица:');
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
A[i,j]:=random(-10,10); //рандомное значение ячейки матрицы
write(A[i,j]:4) //вывод ячейки матрицы
end;
writeln;
end;
//поворачиваем матрицу на 90 градусов
for j:=1 to 4 do
begin
x:=0;
for i:=4 downto 1 do
begin
x:=x+1;
B[j,x]:=A[i,j]
end
end;
// выводим итоговую матрицу
writeln;
writeln ('Матрица, повернутая на 90 градусов:');
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(B[i,j]:4);
writeln
end
end.
--------------------------------------------------
Результат работы программы:
Исходная матрица:
-7 -8 3 4
10 -5 -1 -8
3 -9 -7 -1
-2 6 -8 -9
Матрица, повернутая на 90 градусов:
-2 3 10 -7
6 -9 -5 -8
-8 -7 -1 3
-9 -1 -8 4
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
i,indf:integer;
begin
indf:=-1;
for i:=1 to n do
begin
readln(ar[i]);
if not(odd(ar[i])) then indf:=i;
end;
if indf=-1 then
writeln('Нет чётных')
else
begin
for i:=indf to n-1 do
ar[i]:=ar[i+1];
for i:=1 to n-1 do
write(ar[i]:4);
end;
end.
Пример ввода:
1 2 3 4 5
Пример вывода:
1 2 3 5
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)
Первым выполняется логическое умножение, т.е. B∧C
uses crt;
const n=3;
var i,s:integer;
k:string;
a:array[1..10] of integer;
begin
repeat
clrscr;
s:=0;
writeln('Задйате стаж работы в анкеты ');
for i:=1 to n do begin
write('Анкета ', i,': '); readln(a[i]);
if a[i]>=5 then inc(s)
end;
writeln('По реузльтатам подходят ', s,' анкеты');
writeln('Повторить - Enter. Выход - любой символ + Enter');
readln(k);
until k<>''
end.