Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные 10
1-4 класс
|
чисел.
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
readln(a[i]);
if a[i]<0 then a[i]:=abs(a[i]);
writeln(a[i]);
end;
end.
Другие вопросы из категории
розташованих знову по-іншому. Знайди та запиши ці числа.
рисунок
текст
таблица
макет заданий
статуя
диаграмма
схема
компьютерная игра
фотография
кукла
географическая карта
игрушка
глобус
Читайте также
полученные 10 чисел.
же 1) начало 2) запиши число 3) вычти если полученное число меньше 10 то 5) прибавь иначе 6) вычти 7) прибавь 8) конец
матрицы и значения ее элементов ввести с клавиатуры.
позволяет ввести три вещественных числа и выводит на экран:
сумму
всех трех чисел;
модуль
разности первого и второго чисел;
целую
часть произведения второго и третьего чисел.
Все вещественные числа должны быть
выведены в форме с фиксированной точкой с двумя знаками после запятой; перед
каждым вычисленным значением должны идти пояснительный текст и выражение.