1. напишите программу для создания трех массивов, каждый из 8 элементов : a, b и c.
2. заполните массив a с клавиатуры.
3. заполните массив b квадратами номеров соответствующих элементов.
4. заполните массив c случайными числами.
5. выведите эти три массива на экран, расположив их элементы в строку.
Объяснение:
Пишу на c++
#include <iostream>
#include <cstdlib>
using namespace std;
int main(){
int arr[8], brr[8], crr[8];
for(int i = 0;i<8;i++){
cin >> arr[i];
brr[i] = i*i;
crr[i] = rand();
}
for(int i = 0;i<8;i++){
cout << arr[i] << " ";
}
for(int i = 0;i<8;i++){
cout << brr[i] << " ";
}
for(int i = 0;i<8;i++){
cout << crr[i] << " ";
}
}
На паскале:
var a,b,c: array[1..8] of integer;
var i:integer;
begin
for i:=1 to 8 do
begin
readln(a[i]);
b[i]:= i*i;
randomize;
c[i]:=random(0,100000);
end
for i:= 1 to 8 do
write(a[i]);
for i:= 1 to 8 do
write(b[i]);
for i:= 1 to 8 do
write(c[i]);
end.
===== PascalABC.NET =====
begin
var A := ReadArrInteger('Введите 8 целых чисел:', 8);
A.Println;
var B := ArrGen(8, i -> i * i, 1);
B.Println;
var C := ArrRandom(8, -99, 99);
C.Println;
end.
Примечание: Если все три массива надо вывести в одну строку, вместо A.Println и B.Println указать A.Print и B.Print