Найти среднее арифметическое каждой трети массива и определить минимальное и максимальное найденных чисел

@anastasiasapego · Регистрация: 28.09.2017

Студворк — интернет-сервис помощи студентам

Напишите программу, которая вводит с клавиатуры 30 реальных чисел и определяет среднее арифметическое первых десяти элементов, вторых десяти и последних десяти. После этого определяется максимальное и минимальное среднее арифметическое и выводится сообщение. Составить блок-схему. Turbo Pascal

@ZX Spectrum-128 · 09.12.2017, 15:48

Pascal

const
  n = 30;
 
var
  a: array[1..n] of real;
  i: integer;
  min, max, s1, s2, s3: real;
 
begin
  s1 := 0;
  s2 := 0;
  s3 := 0;
  for i := 1 to n do
  begin
    readln(a[i]);
    {    a[i] := random(n);
    write(a[i]:8:2);}
  end;
  writeln;
  for i := 1 to 10 do
    s1 := s1 + a[i];
  s1 := s1 / 10;
  for i := 11 to 20 do
    s2 := s2 + a[i];
  s2 := s2 / 10;
  for i := 21 to n do
    s3 := s3 + a[i];
  s3 := s3 / 10;
  writeln(s1, ' ', s2, ' ', s3);
  
  if (s1 < s2) and (s1 < s3) then 
    min := s1
  else 
  if s2 < s3 then 
    min := s2
  else 
    min := s3;
  writeln('Min: ', min);
  if (s1 > s2) and (s1 > s3) then 
    max := s1
  else 
  if s2 > s3 then 
    max := s2
  else 
    max := s3;
  writeln('Max: ', max);  
end.

@anastasiasapego 0 / 0 / 0 Регистрация: 28.09.2017 Сообщений: 63
		1
	Найти среднее арифметическое каждой трети массива и определить минимальное и максимальное найденных чисел 09.12.2017, 13:12. Показов 2108. Ответов 1 Метки нет (Все метки) Напишите программу, которая вводит с клавиатуры 30 реальных чисел и определяет среднее арифметическое первых десяти элементов, вторых десяти и последних десяти. После этого определяется максимальное и минимальное среднее арифметическое и выводится сообщение. Составить блок-схему. Turbo Pascal 0

	09.12.2017, 15:48

Опции темы

Найти среднее арифметическое каждой трети массива и определить минимальное и максимальное найденных чисел

Решение