Мультимедиа технологии предназначены для выполнения своего рода мультимедиа . воспроизведения аудио и видео файлов а так же их записи
Lesnova_Kiseleva730
12.03.2023
//pascal abc.net v3.1 сборка 1219 const n=5; var ar: array[1..n] of real; i,maxi,mini: integer; s,min,max: real; begin randomize; min: =2147483647; max: =-2147483648; writeln('first array: '); for i: =1 to n do begin ar[i]: =random(30); write(ar[i]: 6); if ar[i]> max then begin max: =ar[i]; maxi: =i; end; if ar[i]< min then begin min: =ar[i]; mini: =i; end; s: =s+ar[i]; end; s: =s/n; ar[maxi]: =ar[maxi]-maxi; ar[mini]: =ar[mini]+s; writeln; writeln('final array: '); for i: =1 to n do write(ar[i]: 6); end.
Andrei
12.03.2023
#include < iostream> using namespace std; int main() { int n, p, i; string m; cout < < "введите n: ", cin > > n, cout < < "\n"; for (i=2; (i< =5)& & ((n< 100)or(n> 999)); i++) { cout < < "введите n: ", cin > > n, cout < < "\n"; } if ((n> =100)and(n< =999)){ p = (n/100)*(n/10%10)*(n%10); cout < < p; } else cout < < "ошибка"; return 0; } пример: введите n: 12введите n: 7623введите n: 456120