вообщем получиться такая фраза : жду тебя в семь
<span>program matrica;
Var
i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
begin
Writeln('Ввод ',i,' строки');
for j:=1 to n do
begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
end;
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=i to n do
if a[i,j]=a[j,i] then
Writeln(a[i,j],' i=',i,' j=',j);
End.</span>
Program ANT;
const n=6; m=6;
var i,j:integer;
var a:array [1..n,1..m] of real;
begin
writeln('Введите матрицу');
for i:=1 to n do
for j:=1 to m do begin
writeln('a[',i,',',j,']');
readln(a[i,j]);
end;
writeln('Исходная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
u:=0;
for i:=1 to n do begin
for j:=1 to m do
if i+j=7 then u:=u+ln(a[i,j]);
end;
writeln('Среднее геометрическое',u);
max:=[1,1];
for i:=1 to n do begin
for j:=1 to m do
if (a[i,j]>max) then [i,j]:=max;
end;
writeln('Максимальное значение',max);
u:=max;
writeln('Полученная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
end.
Решите задачи черезCodeblocks(TXLib.h) Условие: 1) заполнить массив числами 10,12,14,16,18,20,22,24,26,28,30. 2) Заполнить масс
Korosta
Include <stdio.h>
int main ()
{
const int SIZE = 12;
int array [SIZE] = {10};
for (int i = 1; i < SIZE; i++)//Task1
array[i] = array[i - 1] + 2;
//Task2
array[0] = 1;
for (int i = 1; i < SIZE; i++)
array[i] = array[i - 1] * 2;
//Task3
int Data[SIZE - 2] = {};
for (int i = 0; i < SIZE - 2; i++)
scanf ("%d", &Data[i]);
for (int i = 0; i < SIZE; i++)
printf ("[%d] = %d", i, Data[i]);
//task 4 = task 3, но SIZE = 7
}