Program qwer; uses crt; var a : array [1..50] of integer; sum, kol, i, raz: integer; Begin sum := 0; kol := 0; write('Размер: '); readln(raz); for i := 1 to raz do begin readln(a[i]); if i mod 2 = 1 then begin kol := kol + 1; sum := sum + a[i]; end; end; write('Cреднее арифметическое: ',sum / kol); End.
Jannadon77
16.04.2022
1.Компьютер - незаменимая вещь в жизни студента. 2.Мама обрадовала Петю: он совсем не ожидал получить компьютер на день рождения. 3. Учительница сказала, что сегодня мы будем работать на компьютере. 4. Паскаль- самый сложный язык в программировании на компьютере. 5. Вова обожал играть в видеоигры на компьютере. 6. "Ребята, сегодня наш класс пойдёт смотреть в технический музей на первые компьютеры"- сказала учительница. 7. Бабушка удивилась, что Катенька так быстро печатает на компьютере. 8. Настя была опечалена: из-за сломанного usb-порта компьютер не воспринимал съемный носитель. 9. Первые компьютеры были очень большими. 10. Милана очень хотела новый компьютер, но папа посчитал нужным подарить ей книги.
menametov
16.04.2022
В C++ #include <iostream> #include <iomanip> #include <ctime> int main() { using namespace std;
const int N = 5; const int M = 5;
//Создаём массив и как-нибудь заполняем int A[N][M]; srand(time(0)); for (int i = 0; i < N; ++i) for (int j = 0; j < M; ++j) A[i][j] = rand() % (N * M) + 1;
//Выводим его на экран for (int i = 0; i < N; ++i) { for (int j = 0; j < M; ++j) cout << setw(4) << A[i][j]; cout << endl; }
//Меняем местами 2ю и 3ю строки int temp = 0; for (int j = 0; j < M; ++j) { temp = A[1][j]; A[1][j] = A[2][j]; A[2][j] = temp; }
//Выводим полученный массив на экран cout << "\n\n"; for (int i = 0; i < N; ++i) { for (int j = 0; j < M; ++j) cout << setw(4) << A[i][j]; cout << endl; }
return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Массив а вводится с клавиатуры. найти среднее арифметическое его элементов с нечетными номерами. размер вводим с клавиатуры (< =20)
uses crt;
var a : array [1..50] of integer;
sum, kol, i, raz: integer;
Begin
sum := 0; kol := 0;
write('Размер: '); readln(raz);
for i := 1 to raz do
begin
readln(a[i]);
if i mod 2 = 1 then
begin
kol := kol + 1; sum := sum + a[i];
end;
end;
write('Cреднее арифметическое: ',sum / kol);
End.