Регистрация
УмныйАутист
07.03.2020 01:35
Информатика
Есть ответ 👍

Дан массив состоящий их 7 вещественных чисел. из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных n ( числа k и n вводятся с клавиатуры). нулевые элементы оставить без изменения.

158
389
Посмотреть ответы 2

Ответы на вопрос:

Ksyu130104
Ksyu130104
4,4(14 оценок)
Var a: array[1..7] of real;       k, n: integer; begin   readln(k, n);   for i: =1 to 7 do begin       read(a[i]);       if a[i]< > 0 then if a[i]> 0 then a[i]: =a[i]-a[k] else a[i]: =a[i]-a[n];     write(a[i], ' '); end.
Семма0106
Семма0106
4,4(81 оценок)

30 | 2 ✓ 60 | 2 ✓

15 | 3. ✓ 30 | 2

5 | 5.✓ 15 | 3. ✓

1 |. 5 | 5✓

1 |

(НОК 30;60) 30 х 2= 60

Популярно: Информатика