Программа:
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите массив:');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Введите массив:
a[1] = 15
a[2] = -8
a[3] = 24
a[4] = -31
a[5] = 45
a[6] = -61
a[7] = 72
a[8] = 19
a[9] = 55
a[10] = -28
15 -8 24 -31 45 -61 72 19 55 -28
Program Archi;
uses crt;
var
x:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите x: ');
readln(x);
writeln('При х=',x,'');
writeln('3sin(sqrt(3))+0,35x-3,8 = ',3*sin(sqrt(3))+0.35*x-3.8:0:3);
end.
Kaspersky, Avast, Dr.Web, Eset NOD 32
Вот так, если я правильно понял тебя(качай, я кинул в блокноте)
______________________________________________________________
"СПАСИБО" и оценку ответа, так я буду знать, что помог. Удачи!