var
a: <em>integer</em>;
begin
write('Enter your age: ');
readln(a);
writeln('Your age in months is ', a * 12);
<span>end.</span>
Ответ: 1 элемент будет иметь отрицательное значение.
Код:
var
A, B: array[0..99] of integer;
i: integer;
otr: integer;
begin
for i := 0 to 99 do
A[i] := 50 - (i + 1);
for i := 0 to 99 do
B[i] := A[i] + 49;
otr := 0;
for i := 0 to 99 do
writeln(B[i]);
if B[i] < 0 then
Inc(otr);
writeln(otr);
end.
Для вывода текста оператором writeln необходимо указывать текст в скобках
например writeln("какой-то текст")
Тебе надо сделать это в паскале правда или словестно
Словестно
1 идём сверху в низ
2 рисуем линию в права
3 по середине линии делаем линию вверх
4 возращяемся на горизонтальную линию
5 делаем отступ
6 и рисуем линию вверх
а если в паскале то надо подключать модуль graphabc