Const
n = 16;
var
A, Y: array[1..n] of integer;
i, m: integer;
S: longint;
begin
Write('Введите число элементов в массивах m<17: ');
Readln(m);
if not (m in [1..16]) then m := 16; { защита от дурака }
Randomize;
//Write('Элементы массива: ');
S := 0;
for i := 1 to m do
begin
A[i] := Random(51) - 25;
Y[i] := Random(41) - 20;
S := S + A[i] * Y[m - i + 1]
//Write(x[i]:5)
end;
if S < 24 then Writeln('Искомая сумма равна ', S)
else begin
Write('Массив A: ');
for i := 1 to m do Write(A[i]:4);
Write(#13#10, 'Массив Y: ');
for i := 1 to m do Write(Y[i]:4);
Writeln
end
end.
Тестовое решение:
Введите число элементов в массивах m<17: 0
Массив A: 6 25 9 -4 11 10 -18 11 18 -11 -24 1 13 -3 -10 0
Массив Y: 1 0 6 9 14 -14 3 -6 -17 -19 11 16 11 -20 5 19
Введите число элементов в массивах m<17: 10
Массив A: 1 2 7 5 9 -16 -23 -4 5 -2
Массив Y: -3 -5 -12 -20 2 1 -3 18 19 -17
Введите число элементов в массивах m<17: 10
Искомая сумма равна 1
алг
нач
закрасить
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
кон
на алгоритмическом языке я как понял надо
Var n,i,min,max:integer;
begin;
readln(n);
max:=0;
min:=10;
while n>1 do
begin;
if n mod 10>max then max:=n mod 10;
if n mod 10<min then min:=n mod 10;
n:=n div 10;
end;
writeln('Result:',max mod min);
<span>end.</span>
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
#include "iostream"
using namespace std;
int main(){
int secound =0;
int hh =0;
int mm =0;
int ss =0;
int ch[5];
cin >> secound;
hh = secound / 3600;
mm = secound/60 - hh * 60;
ss = secound - hh*3600 - mm *60 ;
if(hh >=24){
int b = hh / 24;
hh = hh - 24 *b;
}
ch[0] = hh;
if(mm< 10){
ch[1] =0;
ch[2] = ss;
}else
ch[1] = mm / 10;
ch[2] = mm - mm / 10 * 10;
if(ss< 10){
ch[3] = 0;
ch[4] = ss;
} else
ch[3] = ss /10;
ch[4] = ss - ss / 10 * 10;
cout << ch[0] << ':' << ch[1] <