Const n=7; var a: array [1..n,1..n] of integer; i,j,k:integer; begin for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=-5+random(11); write(a[i,j],' '); end; writeln; end;
for i:=1 to n do begin for j:=1 to n do begin if a[i,j]=0 then begin for k:=1 to n do a[k,j]:=0; end; end; end;
writeln(''); for i:=1 to n do begin for j:=1 to n do begin write(a[i,j]:2,' '); end; writeln; end; end.
var x, n: integer; n1: real; begin Writeln('Введите число: '); Read(x); if (x > 9) and (x < 100) then begin n := (x div 10) + (x mod 10); Writeln('Сумма цифр равна: ', n); end; if (x > 99) and (x < 1000) then begin n := (x div 100) * ((x div 10) mod 10) * (x mod 10); Writeln('Произведение цифр равно: ', n); end; if (x > 999) and (x < 10000) then begin n := x div 1000 + (x div 100) mod 10 + (x div 10) mod 10 + x mod 10; n1 := n / 4; Writeln('Среднее арифметическое равно: ', n1); end; if x > 9999 then begin Writeln('Введите 2-х, 3-х или 4-х значное число'); 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 и т.д.
var a: array [1..n,1..n] of integer;
i,j,k:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=-5+random(11);
write(a[i,j],' ');
end;
writeln;
end;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]=0 then begin
for k:=1 to n do
a[k,j]:=0;
end;
end;
end;
writeln('');
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:2,' ');
end;
writeln;
end;
end.