Паскаль. ввод с клавиатуры ввести массив а(n) вещественных чисел. все положительные элементы переписать - id846771820220629 от KseshaMail 29.06.2022 08:17

Question

Информатика: Паскаль. ввод с клавиатуры ввести массив а(n) вещественных чисел. все положительные элементы переписать в массив а1, найти в нем максимум и поставить его на первое место в а1. массивы а и а1 распечатать.

KseshaMail · Accepted Answer

уточнять на каком языке программирования нужно написать задачки. Я же напишу на С++. Алгоритм везде будет один и тот же.

1 задача

int x1 = 0;

int x2 = 0;

int x3 = 0;

int x4 = 0;

int x5 = 0;

cin >> x1;

cin >> x2;

cin >> x3;

cin >> x4;

cin >> x5;

double sr = 0.0;

sr = (x1+x2+x3+x4+x5)/5;

Или же можно сделать по проще

int x = 0;

int sum = 0;

double sr = 0.0;

for(int i = 0; i<5; i++){

cin >> x;

sum = sum +x;

}

sr = sum/5;

2 Задача

int number = 5;

for(int i = 2; i<20; i=i+2){

number = number + i;

}

MOGZ ответил