Автор Лена Филиппова задал вопрос в разделе Другие языки и технологии
Помогите с паскалем) Массивы. и получил лучший ответ
Ответ от Капитан Гугл[гуру]
var a,b,c:mas; ... for i:=1 to 10 do ... for i:=1 to 10 do c[ i]:=a[ i]-b[ i]; writeln(\'c[\',i,\']=\',c[ i]); end;
Ответ от Krab Bark[гуру]
const n=10; var a,b,c:array[1..n]of real; i:integer; begin write(n,' numbers of a ? '); for i:=1 to n do read(a[ i]); readln; write(n,' numbers of b ? '); for i:=1 to n do read(b[ i]); readln; for i:=1 to n do c[ i]:=a[ i]-b[ i]; for i
const n=10; var a,b,c:array[1..n]of real; i:integer; begin write(n,' numbers of a ? '); for i:=1 to n do read(a[ i]); readln; write(n,' numbers of b ? '); for i:=1 to n do read(b[ i]); readln; for i:=1 to n do c[ i]:=a[ i]-b[ i]; for i
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Помогите с паскалем) Массивы.