//использую два масива. TableRevers - это массив изменненый, где повторяются элементы. Table = этот массив заполняет пользователь.
#include <iostream>
#include <cmath>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int close = -1; //значение для прекращения ввода массива
int table[250]; //масив первый
int tableRevers[500]; //массив для преобразования
int input; //ввод
int i = 0; //для счета кол-ва элементов
int y = 0; //для заполнения
cout << "To close enter: " << close << endl; //уведомление
while(cin >> input, input != close) //заполняем массив
{
table[i] = input;
i++;
}
for(int t = 0; i * 2 > t; t = t + 2) //делаем измененный массив
{
tableRevers[t] = table[y];
tableRevers[t + 1] = table[y];
y++;
}
for(int t = 0; i * 2 > t; t++) //выводис измененный массив
{
cout << endl << tableRevers[t];
}
return 0;
}
1703 г.
read(god);
while god <> 1703 do begin
write ('Неправильно!');
read(god);
end;
write('Правильно');
pascal
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=Range(10,100,10).ToArray; a.Println;
Writeln('Ср.арифм.=',a.Average);
a[0]+=5; a[4]+=5; a[9]+=5;
a.Println
end.
<u><em>Тестовое решение:</em></u>
10 20 30 40 50 60 70 80 90 100
Ср.арифм.=55
15 20 30 40 55 60 70 80 90 105
var
a: array [1..10] of integer; //Массив из 10 целых элементов
max, i: integer; //max - максимальный элемент
begin
max:= 0; {Присваиваем max минимальное значение, которое он может принять}
write('Исходный массив: '); {Заполняем исходный массив, печатаем его и находим максимальный элемент}
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > max) then
max:= a[i];
end;
writeln('Максимальный элемент массива среди элементов с четными индексами: ', max); //Печатаем исходный элемент
end.
Если все правильно, отметь решение как лучшее)
