program raf105;
const n= 10;
var
a:array[1..n] of integer;
i: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:= random(-70,30);
writeln(a[i]);
end;
writeln('Изменённый массив:');
for i:=1 to n do
begin
a[i]:= a[i]*a[i];
writeln(a[i]);
end;
end.
Язык PascalABC#include<iostream>
#include<ctime>
using namespace std;
int main() {
srand(time(NULL));
setlocale(LC_ALL, "Russian");
int d[15];
for (int i = 0; i < 15; i++)//заполение массива случайными числами в диопазоне от -70 до 30
{
d[i] = rand() % 101 + (-70);
}
for (int i = 0; i < 15; i++)//вывод массива
{
cout << d[i] << " ";
}
cout << endl;
for (int i = 0; i < 15; i++)//замена элементов массива
{
d[i] = pow(d[i], 2);
}
for (int i = 0; i < 15; i++)//вывод массива
{
cout << d[i] << " ";
}
cout << endl;
system("Pause");
return 0;
}
Объяснение:
