Var c:array[1..17] of integer; i,k:integer; begin for i:=1 to 17 do read(c[i]); k:=0; for i:=1 to 17 do if c[i] mod 11 = 0 then k:=k+1; writeln('Количество элементов кратных 11 = ', k); end.
type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; 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 и т.д.
i,k:integer;
begin
for i:=1 to 17 do read(c[i]);
k:=0;
for i:=1 to 17 do
if c[i] mod 11 = 0 then k:=k+1;
writeln('Количество элементов кратных 11 = ', k);
end.