const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do begin readln(a[i]);
if i mod 2=1 then a[i]:=sqr(i);
writeln(i,' элемент массива равен : ',a[i]);
end;
end.
Мне кажется, что неправильно сказано, где написано, что благодаря этому огурцы будут тверденькими. Т. к. огурцы сами по себе твердые
var i,N:integer;
begin
writeln('пожалуйста, веедите натуральное число не превосходящее 1000');
readln(N);
writeln('Входное число=',N);
for i:=0 to (N-1) do write(i,' ');
end.
Пример работы:
пожалуйста, веедите натуральное число не превосходящее 1000
5
Входное число=5
0 1 2 3 4
P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');
Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью помогу любому желающему.