Мне нравится А и В
Мне ¬ нравится А ∧ В
Мне нравится А ∧ ¬ В
Мне ¬ нравится В V ¬ нравится А
Мне ¬ нравится А
Мне ¬ нравится В. ∧ нравится А
Program help;
Uses Crt;
Const n = 10; (* Размер массива *)
Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;
Begin
Randomize;
ClrScr;
Writeln('Массив: ');
For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;
Writeln('Массив после изменения: ');
For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
End.
Var i,b,c:integer;
a:array[1..100] of integer;
Begin
Read(b);
I:=1;
While b<>0 do
Begin
A[i]:=b;
I:=i+1;
Read(b);
End;
C:=i-1;
D:=0;
B:=0;
For i:=1 to c do
If a[i]>99
Then begin b:=b+a[i]; d:=d+1; end;
If b=0
Then writeln('NO')
Else writeln(b/d);
End.
Uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
<span>end.</span>