Опубликовано 6 лет назад по предмету Информатика от flashwor

Дан массив из 25 чисел, найти СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ элементов массива, СУММУ массива и КОЛ-ВО ЧЁТНЫХ и НЕ ЧЁТНЫХ элементов массива. Элементы вводятся с помощью ГСЧ.

Ответ

Ответ дан pacixor

var
A: array[1..25] of integer;
mean: real;
qodds, qevens, i: byte;
sum: integer;
begin
sum := 0;
qodds := 0;
qevens := 0;
randomize;
for i := 1 to 25 do
begin
    A[i] := random(41)-20;
    sum := sum + A[i];
    if (A[i] mod 2 = 0) then
      qevens := qevens + 1
    else
      qodds := qodds + 1;
    write(A[i], ' ');
end;
writeln(#13 + 'Среднее арифметическое = ', (sum / 25):0:2);
writeln('Сумма = ', sum);
writeln('Четных = ', qevens);
writeln('Нечетных = ', qodds);
end.
1. Ответ
  
  Ответ дан flashwor
  
  Тебе 50р скинуть?
Ответ

Ответ дан ristaltvgames

program znanija;
uses CRT;
Var n,k,sum,ch,nch: integer;
sa: real;
M: Array[1..25] of integer;
begin
write('Ведите N: ');readln(n);
for k:=1 to 25 do
begin
M[k]:=random(n);
sum:=sum+M[k];
if (M[k] mod 2 = 0) then
begin
ch:=ch+1;
end else
begin
nch:=nch+1;
end;
end;
sa:=sum/25;
Writeln('Среднее арихметическое - ',sa);
Writeln('Сумма чисел - ', sum);
Writeln('Количество чётных - ', ch);
Writeln('Количество не чётных - ', nch);
writeln('--Числа--');
for k:=1 to 25 do
begin
Write(m[k],', ');
end
end.
1. Ответ
  
  Ответ дан flashwor
  
  сдвиг там, где 41-20?
2. Ответ
  
  Ответ дан ristaltvgames
  
  да
3. Ответ
  
  Ответ дан flashwor
  
  Давай вк спишемся?
4. Ответ
  
  Ответ дан ristaltvgames
  
  зач?
5. Ответ
  
  Ответ дан flashwor
  
  Ещё блок-схему этого кода сделать надо и за всё это 100р переведу тебе. номер карты дашь сбербанка

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Дан массив из 25 чисел, найти СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ элементов массива, СУММУ массива и КОЛ-ВО ЧЁТНЫХ и НЕ ЧЁТНЫХ элементов массива. Элементы вводятся с помощью ГСЧ.

Информация