Найти сумму чисел массива, порядковые номера которых кратны 3

@Димон223 · Регистрация: 26.01.2014

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

Помогите:
дан массив, размерность 15, заполнить случайными числами от -20 до 30 и найти сумму чисел порядковые номера которых кратны 3

@Svager · 20.05.2014, 15:06

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,s,n:integer;
begin
 clrscr;
  repeat
   write('n=');
   readln(n);
  until n in [1..nmax];
  writeln('Ìàññèâ :');
  for i:=1 to n do
   begin
    a[i]:=-20+random(50);
    write(a[i]:4);
   end;
  for i:=1 to n do
   if i mod 3=0 then
    s:=s+a[i];
  writeln;
  writeln('Ñóììà åëåìåíòîâ ÷åé íîìåð êðàòåí 3 = ',s);
 readkey;
end.

@Димон223 0 / 0 / 0 Регистрация: 26.01.2014 Сообщений: 24
		1
	Найти сумму чисел массива, порядковые номера которых кратны 3 20.05.2014, 14:58. Показов 1618. Ответов 1 Метки нет (Все метки) Помогите: дан массив, размерность 15, заполнить случайными числами от -20 до 30 и найти сумму чисел порядковые номера которых кратны 3 0

Опции темы

Найти сумму чисел массива, порядковые номера которых кратны 3

Решение