Влинейном массиве целых чисел на i-е мест вставить элемент равный корню квадратному из суммы квадратов двух указанных с клавиатуры элементов. записать в паскале исправьте ошибки . program zadacha; var a: array [1..100] of integer; i,n,b,c: integer; s: real; begin write('кол. элементов'); readln(n); write('элементы массива'); for i: =1 to n do readln(a[i]); write('b='); readln(b); write('c='); readln(c); s: =sqrt(c)+sqrt(b); n: =n+1; for i: =n downto n+1 do a[i]: =a[i-1]; a[n]: =s; - вот не правильно for i: =1 to n do write(a[i]: 6) end.
program zadacha;
var a:array [1..100] of real;
i,n,b,c:integer;
s:real;
begin
write('êîë. ýëåìåíòîâ');
readln(n);
write('ýëåìåíòû ìàññèâà');
for i:=1 to n do
readln(a[i]);
write('b=');
readln(b);
write('c=');
readln(c);
s:=sqrt(c*c+b*b);
n:=n+1;
for i:=n downto n+1 do
a[i]:=a[i-1];
a[n]:=s;
for i:=1 to n do
writeln(a[i]:2:3);
readln;
end.