Ответ:
Program massiv;
uses Crt;
var a :array[1..6] of integer; i, k:integer;
begin ClrScr;
for i := 1 to 6 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
k := 0;
for i := 1 to 5 do k := (k + a[i]*a[i+1]);
writeln (k);
end.
Объяснение:
Вот так как то
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Program massiv;
uses Crt;
var a :array[1..6] of integer; i, k:integer;
begin ClrScr;
for i := 1 to 6 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
k := 0;
for i := 1 to 5 do k := (k + a[i]*a[i+1]);
writeln (k);
end.
Объяснение:
Вот так как то