Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program a1;
var i, j : integer;
s : real;
a: array [1..5, 1..6] of real;
b: array [1..6] of real;
begin
for i: =1 to 5 do
for j: =1 to 6 do
readln(a[i,j]);
s: =0;
for : =1 to 5 do
s: =s+a[i,j];
b[j]: =s
end;
write ('полученный массив в: ');
for j: =1 to d do
write(b[j]);
readln
end.
jrjkj rjkf_rjkjrjkf b yf rjkf[_rjkjrjkf
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
if a> b then max: = a
else max: =b;
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
writeln(x1);
var x,y: real;
readln(x);
if x> 8 then y: =x/4 else y: =x*5;
writeln(y);
Популярные вопросы