1) составьте программу, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 10 и находит среднее арефметическое элементов с четными значениями и нечетными индексами.
Если надо найти ср. арифметическое одновременно и четных чисел и нечетных индексов:
var a:array[1..20] of integer; i, k, s: integer; begin for i:=1 to 20 do begin a[i]:=random(1,10); if (a[i] mod 2=0)or(i mod 2<>0) then begin k:=k+1; s:=s+a[i]; end; end writeln((s/k):17:2); end.
Код#include <iostream>constexpr double bites_to_megabytes(double a) { return a / 8388608;}constexpr double megabytes_to_gigabytes(double a) { return a / 1024;}int main() { long long a; short type; bool is_correct = false; double answer; do { std::cin >> a; std::cout << "[1] Megabytes \n" << "[2] Gigabytes \n" << "Convert to [1] or [2]: "; std::cin >> type; if (type == 1 or type == 2) { is_correct = true; } else { std::cout << "Meh. Try to type again. \n" << std:: endl; } } while (!is_correct); switch (type) { case 1: answer = bites_to_megabytes(a); break; case 2: answer = megabytes_to_gigabytes(bites_to_megabytes(a)); break; } std::cout << "An answer of conversion is " << answer << std::endl; return 0;}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1) составьте программу, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 10 и находит среднее арефметическое элементов с четными значениями и нечетными индексами.
var
a:array[1..20] of integer;
i, k, s: integer;
begin
for i:=1 to 20 do begin
a[i]:=random(1,10);
if (a[i] mod 2=0)or(i mod 2<>0) then begin
k:=k+1; s:=s+a[i]; end; end
writeln((s/k):17:2);
end.