Создать массив а из десяти целых чисел, принадлежащих промежутку (0; 50) выведите полученный результат на экран. подсчитать сумму элементов (работа в паскаль я просто тему пропустила, а объяснять не хотят : (

Var  a : array [1..10] of integer;   i, sum : integer; begin   randomize;   for i: = 1 to 10 do    a[i]: = random(50);   sum: = 0;   for i: = 1 to 10 do    sum: = sum + a[i];   writeln(sum); end.

const n=20;

var a: array [1..n] of integer;

i,max,maxi,min,mini: integer;

begin

write('массив: ');

for i: = 1 to n do

begin

a[i]: =random(101)+50;

write (a[i],'   ')

end;

max: =a[1];

maxi: =1;

min: =a[1];

mini: =1;

for i: = 1 to n do

begin

if a[i]> max then

begin

max: =a[i];

maxi: =i

end;

if a[i]< min then

begin

min: =a[i];

mini: =i

end

end;

writeln;

writeln('максимальный элемент ',max,' и его номер ',maxi);

writeln('минимальный элемент ',min,' и его номер ',mini)

end.

или (если max или min элемент будет не один)

const n=20;

var a: array [1..n] of integer;

i,max,min: integer;

begin

write('массив: ');

for i: = 1 to n do

begin

a[i]: =random(101)+50;

write (a[i],'   ')

end;

max: =a[1];

min: =a[1];

for i: = 1 to n do

begin

if a[i]> max then max: =a[i];

if a[i]< min then min: =a[i]

end;

writeln;

for i: = 1 to n do

begin

if a[i]=max then writeln('максимальный элемент ',max,' и его номер ',i);

if a[i]=min then writeln('минимальный элемент ',min,' и его номер ',i)

end

end.

такие легко решаются, если заменить логические знаки на арифметические. сейчас я напишу логические знаки и их аналогичные арифметические.

∧ или & - * (умножение)

∨ - + (сложение)

¬ - отрицание (1 превращается в 0, а 0 в 1)

запишу в качестве примера последнюю таблицу первую строчку

при a=0 b=0 c=0

a& b меняем на a*b

получается 0*0 ответ 0

a& b∨c меняем на a*b+c

получается 0*0+0 ответ 0

¬(a& b∨c) меняем на ¬(a*b+c)

получается ¬(0*0+0) сначала решаем в скобках, будет ¬(0) или  ¬0 ответ: 1

подробнее - на -