var
a:array [1..100] of integer;
i,n,k:integer;
f:boolean;
begin
write ('Razmer massiva (N<100): ');readln(n);
for i:=1 to n do begin
a[i]:=random(36)-10;
write (a[i],' ');
end;
writeln;
write ('Number: ');readln(k);
f:=false;
for i:=1 to n do
if a[i]=k then f:=true;
writeln (f);
readln;
end.
Выводит FALSE, если в масиве нет числа,иначе выводит TRUE.
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
const n=10;
var i,sum:integer;
A:array [1..n] of integer;
begin
for i:=1 to n do begin
write('введите A[',i,']'); readln (A[i]);
end;
writeln;
sum:=0;
for i:=1 to n do
if A[i]<0 then begin
writeln ('A[',i,']'); sum:=sum+A[i];
end;
writeln ('Сумма отрицательных элементов =',sum);
end.
Объяснение:
Флешка, жесткий диск, дискета, диски.
Var
i,n:integer;
begin
readln(N); {вводим N}
For i:=1 to n do
write(Random(100),' '); {выводим псевдослучайные числа в диапазоне [0; 100) }
end.
При проведении различных операций удаление опухолей , злокачественных новообразований управляет роботом врач , в стоматологии удаление кариозных пятен ,постановка пломб,косметологии