Сочетание цикла и разветвление

@FlayGlam · Регистрация: 06.10.2015

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

Pascal
Помогите пожалуйста решить задачку через массив, я плохо понимаю массивы.
Даны числа а1,...,a50. Получить сумму тех чисел данной последовательности, которые
a)Кратны 5;
б)нечетны и отрицательны;
в)удовлетворяют условию мод |ai|< i^2

И эти все цифры должны быть в одной программе.

@vint-81 · 17.11.2015, 18:00

Pascal

const n=50;
var a:array[1..n] of integer;
    i,k5,no,mm:integer;
begin
 k5:=0;no:=0;mm:=0;
 write('массив:');
 for i:=1 to n do 
  begin
   a[i]:=-10+random(21);
   write(a[i],' ');
   if a[i] mod 5 = 0 then k5:=k5+a[i];
   if odd(a[i])and(a[i]<0) then no:=no+a[i];
   if (abs(a[i])<i*i) then mm:=mm+a[i]
  end; 
 writeln;
 writeln('суммы элементов:'); 
 writeln('Кратных 5: ',k5);
 writeln('нечетных и отрицательных: ',no);
 writeln('которые удовлетворяют условию |ai|< i^2: ',mm);
end.

@FlayGlam · 17.11.2015, 20:58 **[ТС]**

А можно спросить, а для чего эта строчка (a[i]:=-10+random(21); ) ?

@vint-81 · 17.11.2015, 21:02

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

можно спросить, а для чего эта строчка (a[i]:=-10+random(21) ?

заполнение массива случайными числами из [-10,10]

@FlayGlam · 18.11.2015, 09:38 **[ТС]**

А почему в скобках именно "21" ? почему не другое число?

@bormant · 21.11.2015, 13:04

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

почему не другое число?

Поставьте другое, какое нравится.
Для a+Random(b) диапазон случайных чисел будет [a; a+b-1].

@FlayGlam 0 / 0 / 0 Регистрация: 06.10.2015 Сообщений: 16
		1
	Сочетание цикла и разветвление 17.11.2015, 17:07. Показов 984. Ответов 5 Метки массив, массив pascal (Все метки) Pascal Помогите пожалуйста решить задачку через массив, я плохо понимаю массивы. Даны числа а1,...,a50. Получить сумму тех чисел данной последовательности, которые a)Кратны 5; б)нечетны и отрицательны; в)удовлетворяют условию мод \|ai\|< i^2 И эти все цифры должны быть в одной программе. 0

@FlayGlam 0 / 0 / 0 Регистрация: 06.10.2015 Сообщений: 16
	17.11.2015, 20:58 [ТС]	3
	А можно спросить, а для чего эта строчка (a[i]:=-10+random(21); ) ? 0

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	17.11.2015, 21:02	4
	Сообщение от FlayGlam можно спросить, а для чего эта строчка (a[i]:=-10+random(21) ? заполнение массива случайными числами из [-10,10] 0

@FlayGlam 0 / 0 / 0 Регистрация: 06.10.2015 Сообщений: 16
	18.11.2015, 09:38 [ТС]	5
	А почему в скобках именно "21" ? почему не другое число? 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	21.11.2015, 13:04	6
	Сообщение от FlayGlam почему не другое число? Поставьте другое, какое нравится. Для a+Random(b) диапазон случайных чисел будет [a; a+b-1]. 0