понедельник, 20 ноября 2017 г.

Урок 20 ноября

Разобрать задачу Дан массив из 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.

Комментариев нет:

Отправить комментарий

план зачетных работ на 4 четверть

  план зачетных работ на 4 четверть 2  04 моделирование роста и убывания 9   04 тест  "моделирование  роста" 16  04 практическая р...