Const
n=5;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
//генератор случайных чисел. Диапазон от 1 до 10.
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)+1;
write(a[i,j]," ");
end;
writeln();
end;
//Проверка условия и переприсвоение, если верно.
for i:=1 to n do
for j:=1 to n do
begin
if ((<span>(i+j) mod 2)=0) then
</span> a[i,j]:=a[1,2];
end;
//Вывод полученного массива.
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]," ");
end;
writeln();
end;
//Ожидание.
readln();
end.
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
Входные данные одни на все
#include <iostream>
#include <cmath>
using namespace std;
int main() {
float x, y;
cin >> x >> y;
cout << "a) " << (abs(x) - abs(y)) / (1 + abs(x*y)) << endl;
cout << "b) " << sqrt(pow(x, 2) + pow(y, 2)) / (x*y) << endl;
cout << "c)" << (x - y) / (abs(x) - abs(y)) << endl;
cout << "d)" << sqrt(abs(x) + abs(y)) / sqrt(pow(x, 2) + 1) << endl;
return 0;
}
Var <имя_массива>: array [(мин_знач_индекса)..(макс_знач_индекса)] of тип_элементов;
Например:
var mas: array [1..10] of integer; - массив mas с 10 пронумерованными целочисленным значениями.