Разобрать задачу Дан массив из 5 элементов, составить
программу, которая заменят числа кратные 5 на 0, остальные не меняются.
Например
|
значение
|
-8
|
10
|
-5
|
14
|
78
|
|
индекс
|
1
|
2
|
3
|
4
|
5
|
Результат:
|
значение
|
-8
|
0
|
0
|
14
|
78
|
|
индекс
|
1
|
2
|
3
|
4
|
5
|
Program z36;
Var a: array[1..5] of integer; i: integer; s: real;
Begin
writeln ('заполните массив числами');
For i:=1 to 5 do readln (a[i]);
For i:=1 to 5 do
if A[i]mod 5=0 then a[i] :=0;
For i:=1 to 5 do write(a[i], ';'); { вывод всех чисел через ;}End.
Комментариев нет:
Отправить комментарий