Дан массив из n чисел найти сумму элементов которые кратны 5

@daniil232425 · Регистрация: 09.10.2019

Не понимаю что делаю не правильно, вроде задача лёгкая но не получается. Помогите пожалуйста!

Pascal

Program massiv;
uses crt;
const n=100;
Var a:array[1..n] of integer;
    i,s:integer;
begin
     clrscr;
     for i:=1 to n do
      begin
        a[i]:=random(100)-1;
      end;
      S:=0;
      for i:=1 to n do
         begin
              if (a[i] mod 5 =0) then
               S:=S+a[i];
                end;
       writeln('Summa  = ',s);
End.

@Пс · 09.10.2019, 18:10

daniil232425

Pascal

begin
  var mas := ArrRandom(ReadInteger);
  mas.Println;
  mas.Where(i -> i mod 5 = 0).Sum.Println;
end.

@Соколиный глаз · 09.10.2019, 18:24

daniil232425, Ваш код может быть упрощён:
- program может быть удалено
- ClrScr() может быть заменён на System.Console.Clear()
- объявление константы может быть удалено
- длина массива может задаваться во время выполнения программы через ReadlnInteger(...)
- массив может быть сделан динамическим
- цикл заполнения массива может быть заменён на вызов ArrRandomInteger(...)
- переменные цикла могут быть описаны на строке с for
- Writeln(...) может быть заменен на Println(...)

@kotAV · 09.10.2019, 18:37

Сообщение от Соколиный глаз

- Writeln(...) может быть заменен на Println(...)

И в чём упрощение?

@Соколиный глаз · 09.10.2019, 18:51

kotAV, в том, что при использовании Print/Println возможно строить цепочки из вызовов функций, в отличие от Write/Writeln:

Pascal

1
2
3

begin
  Arr(1, 2, 5, 10).Println().Where(x -> x mod 5 = 0).Sum().Println();
end.

Это избавляет от нужды заводить дополнительные переменные. Но, разумеется, при использовании Print/Println в изначальной программе ТС разницы не будет заметно.

@Joy · 10.10.2019, 06:51

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

но не получается

что у вас не получается?

@Соколиный глаз Alvin Seville 337 / 269 / 132 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	09.10.2019, 18:24	3
	daniil232425, Ваш код может быть упрощён: - program может быть удалено - ClrScr() может быть заменён на System.Console.Clear() - объявление константы может быть удалено - длина массива может задаваться во время выполнения программы через ReadlnInteger(...) - массив может быть сделан динамическим - цикл заполнения массива может быть заменён на вызов ArrRandomInteger(...) - переменные цикла могут быть описаны на строке с for - Writeln(...) может быть заменен на Println(...) 0

@kotAV 140 / 107 / 56 Регистрация: 15.09.2017 Сообщений: 425
	09.10.2019, 18:37	4
	Сообщение от Соколиный глаз - Writeln(...) может быть заменен на Println(...) И в чём упрощение? 0

@Joy 2383 / 1295 / 1491 Регистрация: 29.08.2014 Сообщений: 4,651
	10.10.2019, 06:51	6
	Сообщение от daniil232425 но не получается что у вас не получается? 0

Опции темы