Какую задачу позволяет решить приведённая ниже программа? var a: array[1..100] of real; i, n: integer; s, sred: real;
begin
write (‘n=’);
readln (n);
s:=0;
for i:=1 to n do
begin
write (‘введите число’);
readln (a[i]);
if i mod 2 = 0 then s:=s+a[i]
end;
writeln(s)
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.