понедельник, 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.

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

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

Решение задач к практической работе 15-19 октября

Увеличить каждый элемент массива на 2  program aaa; var h: array[1..5] of integer;  i:integer; begin       for i:=1 to 5 do    ...