<span>Язык Pascal, работа на массиве. с заполнением с клавиатуры. Ты заполняешь 9 элементов ( через enter ), а он тебе выводит тоже самое, только с противоположными знаками</span>
Var x: array[1..9] of integer;
Var i,h:integer;
Begin
for i:= 1 to 9 do
Begin;
Readln(h);
x[i] := -1*h;
end;
for i:=1 to 9 do
Begin;
Writeln('Элемент номер ',i,' массива: ',x[i]);
end;
readln(x);
end.
Сколько живут собаки? Какова продолжительность жизни, выбранной нами породы?
Этими вопросами задаются все любители собак. К сожалению собаки живут не так долго, как нам бы того хотелось. Средняя продолжительность жизни собак зависит от породы. И здесь закономерно правило, что, чем больше собака по размеру, тем меньше ей отмерено лет жизни.
Вот данные о продолжительности жизни собак некоторых пород, которые подтверждают вышесказанное:
Стаффордширские терьеры живут около 13 лет;
Английские бульдоги - 8-10 лет;
Английских спаниели - 10-14 лет;
Аргентинские доги - 13-15 лет;
Бассеты - 9-11 лет;
Боксеры - 10-12 лет;
Болонки - 18-20 лет;
Большие пуделя - 15-17 лет;
Бордосские доги - 7-8 лет;
Западно-сибирские лайки - 10-14 лет;
Йоркширские терьеры живут 12-15 лет;
Кавказские овчарки живут - 9-11 лет;
Мопсы живут- 13-15 лет;
Немецкие доги живут - 7-8 лет;
Немецкие овчарки живут - 10-14 лет;
Ротвейлеры живут - 9-12 лет;
Таксы живут - 12–14 лет;
Той-терьеры - 12-13 лет;
Чихуа-хуа живут 15–17 лет;
Эрдельтерьеры - 10-13 лет.
1. название программы
2. подключение библиотеки
3 и 4. объявление переменных и их типов
5. объявление массива
6. начало программы
7. вывод на экран сообщения о необходимом действии
8. считывание введенных с клавиатуры данных
9. конец ввода массива
10. обнуление переменной
11. начало цикла
12. формула подсчета переменной
13. вывод получившегося числа на экран
14. задержка экрана (чтобы увидеть результат)
15. конец программы
20 раз:
7, 17, 27, 37, 47, 57, 67, 87, 97
70, 71, 72, 73, 74, 75, 76, 77, 78, 79
для разработки объемного образа (изображения), деталей объекта
