ЛогоМиров
Напишите команду, после выполнения которой ширина пера станет равна 10.

Question

Информатика: ЛогоМиров Напишите команду, после выполнения которой ширина пера станет равна 10.

ayratka2 · Accepted Answer

Program Zadacha1;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
For i := 1 To n Do
a[i] := Random(100);
b := 0;
For i := 1 To n Do
If a[i] Mod 3 = a[i] Mod 5 Then
b := b + 1;
WriteLn('Массив:');
For i := 1 To n Do
Write(a[i], ' ');
WriteLn;
If b > 0 Then
WriteLn('Результат: ', b)
Else
WriteLn('В массиве нет таких чисел');
ReadLn;
End.

Program Zadacha2;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
WriteLn('Начальный массив:');
For i := 1 To n Do
Begin
a[i] := Random(100);
Write(a[i], ' ');
End;
WriteLn;
b := 1;
For i := 1 To n Do
If a[i] < a[b] Then
b := i;
a[b] := 3;
For i := 1 To n Do
If i Mod 2 = 0 Then
a[i] := 0;
WriteLn('Конечный массив:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
End.

ЛогоМиров Напишите команду, после выполнения которой ширина пера станет равна 10.

MOGZ ответил

ЛогоМиров
Напишите команду, после выполнения которой ширина пера станет равна 10.