1) 75
2)226
3)695
Жду лайкосики и удачив информатике))
Ответ:
program array3;
const
L = 1;
H = 10;
var
n, i, s: Integer;
A1, A2, A3: array [L..H] of Integer;
begin
Randomize;
for i := L to H do begin
A1 [i] := Random (10);
A2 [i] := Random (10);
A3 [i] := Random (10);
end;
WriteLn ('Первый массив:');
for i := L to H do
Write (A1 [i], ' ');
WriteLn;
WriteLn ('Второй массив:');
for i := L to H do
Write (A2 [i], ' ');
for i := L to H do
if (i < 2) or (i > 7) then
A3 [i] := A1 [i]
else
A3 [i] := A2 [i];
WriteLn;
WriteLn ('Результирующий массив:');
for i := L to H do
Write (A3 [i], ' ');
WriteLn;
ReadLn;
end.
Объяснение:
const
L = 1;
H = 10;
устанавливаются размерности для массивов, здесь можно их изменить
Begin
writeln(' * ');
writeln(' * * ');
writeln('* *');
writeln(' * * ');
writeln(' * ')
end.
Ответ:На Паскале
Код:
var
a,b,c, d:integer;
begin
writeln('введите числа');
readln(a,b,c);
if (a<=b) and (a<=c) then writeln(a);
if (b<=a) and (b<=c) then writeln(b);
if (c<=a) and (c<=b) then writeln(c)
else writeln(d)
end.
Вроде так, в некоторых версиях может выдавать ошибку, лучше составить код без ограничений действий