Такое задание уже было. Я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю) Только первых три
Задача 1: var p: array[1..10] of integer; i:integer; count:integer; begin for i:=1 to 10 do read(p[i]); write('Сколько цифр массива хотите видеть? -> '); readln(count); for i:=1 to count do write(p[i]:3); end.
Задача 2:
var arr: array[1..10] of integer; i:integer; s:integer; count:integer; begin for i:=1 to 10 do begin arr[i]:=Random(-10,10); if(arr[i]<0) then begin writeln(arr[i]:4); s:=s+arr[i]; count:=count+1; end; end; writeln('Среднее значение = ', s/count); end.
Задача 3:
var arr: array[1..10] of integer; i:integer; crat:integer; id:integer; begin for i:=1 to 10 do begin read(arr[i]); crat:=arr[i] mod 3; if(crat = 0) then begin id:=arr[i]; if(arr[i] = id) then writeln('Id = ', i:2); end; end; end.
Не знаю, на каком языке ты программируешь... я написал на C# using System; namespace ConsoleApplication55{ class Program { static void Main(string[] args) { link: Console.Write("Введите кол-во элементов числовой последовательности: "); int kol = Convert.ToInt32(Console.ReadLine()); if (kol > 100 || kol < 0) goto link; Random ran = new Random(); int[] array = new int[kol]; Console.WriteLine("\nПоследовательность чисел в строчку: "); for (int i = 0; i < array.Length; i++) { array[i] = ran.Next(1, 1000); Console.Write(array[i] + " "); } Console.Write("\n\nПоследовательность чисел, где каждое с новой строки:\n"); for (int i = 0; i < array.Length; i++) Console.Write(array[i] + "\n"); Console.ReadKey(); } }} Смысл такой: ты делаешь массив, размер которого указываешь в начале, потом загружаешь него рандомные(случайные) числа с периодом от 1 до 1000. После этого выводишь с цикла for элементы с условием, что после каждого элемента будет перевод строки(в С# это "\n"), в Паскале это writeln и т.д.
ABDEF = 17
Объяснение:
ABDEF = 5 + 3 + 2 + 7 = 17
ABCEF = 5 + 9 + 4 + 7 = 25
ABEF = 5 + 8 + 7 = 20