//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
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.
непонимаю
Объяснение: