Влинейном массиве целых чисел на i-е мест вставить - вопрос №2800278 от Viki5776766 28.05.2020 13:57

Question

Информатика: Влинейном массиве целых чисел на 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; - вот не правильно

Viki5776766 · Answer

Попробуй так, если в массиве толжен присутствовать корень, то он должен быть типа real)
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.