Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Владислав
Объяснение:
вроде правильно , потому что уважение к человеку
Влад < Владислав
var
i: integer;
s: real;
m: array[1..2,1..6] of real;
begin
s: =0;
for i: =1 to 6 do
readln(m[1,i]);
readln(m[2,i]);
s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;
end;
writeln(s);
end.
если массив состоит из 10 элементов то код программы:
const
n=10;
a: array[1..n] of integer;
i,min: integer;
for i: =1 to n do read(a[i]); {вводишь заданный массив}
min: =32767;
for i: =1 to n do
if a[i]< min then min: =a[i];
write(min);
Популярные вопросы