program n1; const n=10; var mas: array[1..n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: = random (20)-10; write(mas[i],' '); writeln end; max: =1; for i: =2 to n do if mas[i]> mas[max] then max: =i; writeln; writeln('максимаьное значение a[',max,']= ',mas[max]); min: =1; for i: =2 to n do if mas[i]< mas[min] then min: =i; writeln; writeln(минимальное значение a[',min,']= ',mas[min]); for i: =1 to n do sum: =sum+mas[i]; ar: =sum/n; writeln; writeln('среднее арифметическое = ',ar); end.{немного нерационально но работает=)}
Ответ дал: Гость
vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Ответ дал: Гость
1)
высказывание не (не а и b) будет ложным когда высказывание
(не а и b) будет истинным, оно в свою очередь будет истинным когда
будут истинны одновременно высказывание не а и высказывание b
то есть когда а ложное а в истинное
2)
число 376 трехзначное и четное
а=число 376 трехзначное
в=число 376 четное
а и в
или
если сумма цифр числа делится на 3, то число делится на 3
Популярные вопросы