Pascal - Заполнить массив случайными числами

[Kren12]

Помогите пожалуйста решить задачи на массивы в паскале:
1.Заполнить массив случайными числами
2.Заполнить массив квадратами чисел от 1 до 10
3.Посчитать сумму значений элементов массива(предварительно задать массив)
4.Вычислить значение разности последнего и первого элемента в массиве
5.вычислить из заданного массива каждый второй элемент в другой массив
И задачи по строкам в паскале:
1.Посчитать количество цифр в заданной строке
2.задано число, содержащее 255
1)посчитать сколько раз в число входит цифра 5
2)посчитать количество четный чисел

[Alar]

заплатить за решение готовы?

[Artsiom]

Или будем делать вместе и бесплатно?

[Kren12]

Помогите решить (((

[Alar]

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

Или будем делать вместе и бесплатно?

Я хочу или во фриланс перенести или закрыть.

Помогите решить (((

А что помогать, вы что массив не можете создать?
откройте ваш учебник любую книгу на страницы массивы и создайте. вам задания дают чтобы вы учились. именно это задание на изучение массива. тут нет никаких сложностей.

http://www.programmersforum.ru/forumdisplay.php?f=7
тут уже тысячи задач решенных по массивам, выбирайте любую и изучайте.

Если захотите платить, то постите сюда - http://www.programmersforum.ru/newth...newthread&f=31
не забывайте оставлять координаты для связи.

[Alar]

вбил в поиск сверху форума справа.

1.Заполнить массив случайными числами

http://www.programmersforum.ru/showt...F1%EB%E0%EC%E8

вот уже номер один и решен. поиск по форуму рулит.

всего то пару дней назад

Старый 29.11.2016, 16:35 #2
Serge_Bliznykov
МегаМодератор
СуперМодератор

Регистрация: 09.01.2008
Сообщений: 20,744
Репутация: 4754

По умолчанию
тоже мне, "проблема"...

вся программа целиком - это три строчки кода:
Код:

begin
  var a := ArrRandom(5); // создать массив на 5 элементов и заполнить его случайными числами
  a.PrintLn; // вывести содержимое массива в строку
  WriteLn('summa= ',a.Sum) // вывести сумму элементов массива
end.

3.Посчитать сумму значений элементов массива(предварительно задать массив)

и это тоже решено )))

[Serge_Bliznykov]

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

вся программа целиком - это три строчки кода:

хочу отметить, что это не "чистый" Паскаль, это программа для Pascal ABC.NET, использующая его методы работы с массивами.

Впрочем, на чистом Паскале это всё тоже не сильно сложно и поиском по форуму примеры кода найти можно.

[Alar]

Serge_Bliznykov, а я вот не обратил внимание, надо найти в эту тему и пример на олдскульном паскале для

Заполнить массив случайными числами

))

Заполнить двумерный массив случайными числами

заполнить массив A (40) случайным образом целыми числами с диапазона [100, 999]

Написать программу, заполняющую массив от A до Z случайными числами в диапазоне 0..1000 и распечатывающую таблицу в формате 'буква' - 'число'.

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

2007 год! )
А тут еще и с отрицательными числами - как заполнять массив случайными числами от -50 до 50.

и таких тем больше сотни!

randomize;

не забывайте.

[newerow1989]

var i:integer;
    p:array[1..10] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Readln;
end.

var i:integer;
    p:array[1..10] of integer;
begin
   For i:=1 to 10 do
   begin
      p[i]:=i*i;
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Readln;
end.

var i,s:integer;
    p:array[1..10] of integer;
begin
   Randomize;
   s:=0;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
      s:=s+p[i];
   end;
   Writeln;
   Writeln(s);
   Readln;
end.

var i,s:integer;
    p:array[1..10] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   s:=p[10]-p[1];
   Writeln(s);
   Readln;
end.

На тройку хватит?

[Alar]

newerow1989,

Последняя активность: 06.12.2016 20:24

ты думаешь ему еще нужно и он воспользуется, что-то мне подсказывает, что он уже и про эту тему забыл и про форум забыл ))