PROGRAM A23;
const
max = 42;
var
с:array[1..max]of real;
x:integer;
i:byte;
BEGIN
writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
write('Введите x='); readln(x);
writeln(' ');
writeln('Массив' );
for i:=1 to max do begin
с[i]:=16*x - i/9 -7;
write(с[i], ' ');
end;
END.
<span>1920x1080 расшерение екрана </span>
Графическими
Звуковыми
Текстовыми
Книга не лежит на столе.
Рена не идёт в школу.
Не все фрукты красного цвета.
Не все птицы умеют летать.
Смысл этой задачи проверить в том , что является ли сумма предыдущих чисел , заданному числу . Вот и вся программа !