Const n=4; m=5; var a:array[1..n,1..m] of integer; i,j:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(51); write(a[i,j]:4); end; writeln; end; writeln; for i:=1 to n do for j:=1 to m do if a[i,j] mod 2 <> 0 then a[i,j]:=a[i,j]+10 else a[i,j]:=a[i,j]-10; writeln('Измененный массив:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end.
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var p:=ReadInteger('Номер строки для формирования вектора:'); var x:=a.Row(p-1); x.Println end.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "russian");
double x, y;
cin >> x;
if (x == 5)
{
y = pow(x, 4) - x / 5;
}
if (x > 5)
{
y = 4 * x + 2*x/3;
}
else return 0;
cout << endl << y;
}
Объяснение: условие не полное, поэтому решил что есть.