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

@Астема · Регистрация: 21.07.2013

Delphi

program Project4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array[1..40] of integer;
    i,n,s,k:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Введите целочисленный массив: ');
  readln(n);
  writeln('Введите ', n,' элементов массива: ');
  for i:=1 to n do
    read(a[i]);
    readln;
    writeln('Исходный массив');
    for i:= 1 to n do
      if (i mod 10)=0 then writeln(a[i]:5)
      else write(a[i]:5);
    writeln;
    k:=0;
    s:=0;
    for i := 1 to n do
      if (a[i] mod 3)=0 then begin
        k:=k+1;
        s:=s+a[i];
      end;
     if k=0 then
      writeln('Элементов, удовлетворяющих условию, нет')
     else writeln('Среднее арифметическое', k:3,' элементов, кратных 3=',(s/k):7:2);
     readln;
end.

Добавлено через 1 час 59 минут
намудрил, по моему. при компиляции что-то непонятное выходит

@ROS88 · 02.04.2015, 19:40

Что делает етот код?

Delphi

1
2
3

for i:= 1 to n do
      if (i mod 10)=0 then writeln(a[i]:5)
      else write(a[i]:5);

@Астема · 02.04.2015, 19:46 **[ТС]**

ROS88, ээм.. не знаю. может на автомате написал.

@northener · 02.04.2015, 19:58

Сообщение от ROS88

Что делает етот код?

Выводит массив на экран строчками по 10 элементов.

@Астема 1 / 1 / 1 Регистрация: 21.07.2013 Сообщений: 109
	02.04.2015, 19:46 [ТС]	3
	ROS88, ээм.. не знаю. может на автомате написал. 0

@northener пофигист широкого профиля 4246 / 2775 / 785 Регистрация: 15.07.2013 Сообщений: 16,111
	02.04.2015, 19:58	4
	Сообщение от ROS88 Что делает етот код? Выводит массив на экран строчками по 10 элементов. 0

Опции темы