Урок 17 октября параграф 5. Поиск элементов с заданными свойствами

 

• №13 Заполните структуру программы  элем. массива на  преобразование
  Описание массива M из 7 элементов вещественного типа
  Ввод элементов массива
  Обработка элементов массива
  Вывод  элементов массива через пробел

Преобразование элементов массива в соответствии с

 выбранным условием

(Проверка элемента на отрицательность, положительность)
№2  Дан массив из 5 элементов, составить программу, которая заменят отрицательные числа на 5, а положительные на 10.

• Например	значение	-8	9	-4	14	78
  	индекс	1	2	3	4	5
  Результат:	значение	5	10	5	10	10
  	индекс	1	2	3	4	5

Program z33;
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]<0 
then a[i] :=5 
else a[i] :=10;

For i:=1 to 5 do write(a[i],  ';'); { вывод всех чисел через ;}

End.
 
№3  Дан массив из 5 элементов, составить программу, которая заменят положительные на 100, а отрицательные числа на -1.
№4 Дан массив из 5 элементов, составить программу, которая заменят отрицательные числа на 0,  положительные не меняются.