1. Компьютерлік жады түрлерінің қызметі мен көлемін, ішкі және сыртқы жады қай түріне жататынын анықтайды жадының Қызметі Кететі Сыртiк тртері флешкатар 2 Кэш-жады 3 Kamma диск Бейне жад
Var ma:array[1..n,1..n] of integer; i,j:integer; begin writeln('Matrix reading...'); for i:=1 to n do begin writeln; for j:=1 to n do readln(ma[i,j]); end; writeln('First matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin write(ma[i,j]:4); if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]); end; end; writeln; writeln('Final matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do write(ma[i,j]:4); end; end.
Решение ниже. Программа на языке с++.
Объяснение:
#include <stdio.h>
#include <iostream>
#include <locale.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int x, i;
cout << "Введите размерность массива: ";
cin >> x;
int* Arr = new int[x];
cout << "Введите " << x << " элементов массива через пробел: " << endl;
for (i = 0; i < x; i++)
{
cin >> Arr[i];
}
cout << endl << "ответ: ";
for (i = 0; i < x; i++)
{
if (Arr[i] % 2 == 0)
{
cout << Arr[i] << " ";
}
}
for (i = 0; i < x; i++)
{
if (Arr[i] % 2 != 0)
{
cout << Arr[i] << " ";
}
}
return 0;
}
Const
n=5;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
writeln('Matrix reading...');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
readln(ma[i,j]);
end;
writeln('First matrix:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
write(ma[i,j]:4);
if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
end;
end;
writeln;
writeln('Final matrix:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(ma[i,j]:4);
end;
end.
Пример ввода:
1
2
3
4
5
6
7
8
9
1
2
3
4
5
6
7
8
9
1
2
3
4
5
6
7
Пример вывода:
First matrix:
1 2 3 4 5
6 7 8 9 1
2 3 4 5 6
7 8 9 1 2
3 4 5 6 7
Final matrix:
1 2 3 4 5
6 49 64 81 1
2 3 4 5 6
49 64 81 1 2
3 4 5 6 49