Заполнить массив из 10 элементов, чтобы каждый элемент был равен сумме делителей своего номера

@VLADiken · Регистрация: 24.04.2014

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

Заполнить массив из 10 элементов каждый элемент был равен сумме делителей своего номера

@Svager · 24.04.2014, 23:55

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,s:integer;
begin
 clrscr;
  writeln('Ìàññèâ :');
   for i:=1 to n do
    begin
     if (i mod i=0) then
      s:=s+i;
     a[i]:=s;
    end;
  for i:=1 to n do
   write(a[i]:4);
 readkey;
end.

@VLADiken · 25.04.2014, 00:01 **[ТС]**

как я понял, создать 2массив ввести числа рандом. Потом в этом 2массиве в 1ой строке выбрать любое число например 5 и сравнивать сколько 5 в 1ой строке, допустим, что 5ок оказалось 4, вот эту 4ку надо занести в одномерный массив. И тоже самое с 2ой строкой 2массива и с 3ей и т.д.
а вот как в программе я не пойму..

@Svager · 25.04.2014, 00:03

VLADiken, ну щас чет придумаю..

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,s:integer;
begin
 clrscr;
  writeln('Массив :');
   for i:=1 to n do
    begin
     if (i mod i=0) then
      s:=s+i;
     a[i]:=s;
    end;
  for i:=1 to n do
   write(a[i]:4);
 readkey;
end.

@VLADiken 0 / 0 / 0 Регистрация: 24.04.2014 Сообщений: 3
		1
	Заполнить массив из 10 элементов, чтобы каждый элемент был равен сумме делителей своего номера 24.04.2014, 23:39. Показов 1815. Ответов 3 Метки нет (Все метки) Заполнить массив из 10 элементов каждый элемент был равен сумме делителей своего номера 0

@VLADiken 0 / 0 / 0 Регистрация: 24.04.2014 Сообщений: 3
	25.04.2014, 00:01 [ТС]	3
	как я понял, создать 2массив ввести числа рандом. Потом в этом 2массиве в 1ой строке выбрать любое число например 5 и сравнивать сколько 5 в 1ой строке, допустим, что 5ок оказалось 4, вот эту 4ку надо занести в одномерный массив. И тоже самое с 2ой строкой 2массива и с 3ей и т.д. а вот как в программе я не пойму.. 0

	25.04.2014, 00:03

Опции темы