Var A:array[1..13] of integer;
i,S:integer;
begin
for i:=1 to 13 do begin
Write('A[',i,']='); Readln(a[i]);
end;
i:=1
repat
if a[i]<0 then S:=S+a[i];
i:=i+1;
until i<=0;
Writeln(s);
end.
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
Const N = 10;
var im, i, ie: Integer;
A: array [0..N] of Integer;
begin for i := 0 to N do
A[i] := random(99);
im := A[0];
for i := 0 to N do
if (A[i] > im) then
begin
im := A[i];
ie := i;
end;
writeln(ie);
<span>end.
==========================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then ie := i;
writeln(ie);
<span>end.
================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then
begin
ie := i;
break;
end;
writeln(ie);
<span>end.
================================
Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят</span></span></span>
Ответ:
нет верного ответа
Объяснение:
если там имеется ,что при делении С на 16 = отриц число, то там нет ни одного правильного ответа, а если что-то другое то я хз