Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
Var
x, y, r: real;
begin
read(x, y, r);
if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
or ((x < 0) and (y < 0) and (x + y >= -r)) then
write('да')
else
write('нет');
end.
Джуди занимается пением и живёт в Риме
Айрис занимается балетом и живёт в Париже
Линда занимается кино и живёт в Чикаго
Объяснение:
1. Указывает что будет выполнять скрипт bash
2. Объявляем массив, но ничего не записываем в него.
3. Командой echo выводим надпись с просьбой ввести кол-во элементов массива
4. Считываем кол-во элементов с клавиатуры и записываем это значение в переменную elements
5. Выполняем цикл
6. В цикле запрашиваем элемент
7. Записываем этот элемент в массив
8. Заканчиваем цикл
9. Выводим массив