Разработать программу на языке программированияturbo pascal: в массиве хранится 10 случайных чисел в интервале[-1, 1]. найти количество положительных и отрицательных чисел. определить, во сколько суммарное количество положительных чисел превышает отрицательных.

Const n=10;
var a:array[1..n] of real;
k1,k2,i:integer; 
begin
Randomize;
for i:=1 to n do begin
 a[i]:=2*random-1;
 write(a[i]:7:2);
 end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
 if a[i]>0 then k1:=k1+1 else k2:=k2+1;
writeln('k1 = ',k1,' k2 = ',k2);
writeln('количество положительных / количество отрицательных = ',k1/k2);
end.

Пример:
  -0.85   0.53  -0.71  -0.14   0.53  -0.17   0.66   0.21   0.08   0.63
k1 = 6 k2 = 4
количество положительных / количество отрицательных = 1.5

Program n1;
const n=10;
var a: array[1..n] of integer;
i,ko,kp: integer;
begin
randomize;
ko:=0;
kp:=0;
writeln('иходный массив: ');
for i:=1 to n do
begin
a[i]:=random(3)-1;
write(a[i],' ');
end;
for i:=1 to n do if a[i]<0 then ko:=ko+1 else if a[i]>0 then kp:=kp+1;
writeln;
writeln('кол-во пол: ',kp);
writeln('кол-во отр: ',ko);
writeln('в ',kp/ko,' раз');
end.

Графикалық дизайнерлер түстерді нақты өлшеу және сипаттау үшін қолданатын көптеген модельдер бар. RGB ең маңызды болып табылады, себебі компьютер мониторлары мәтінді және кескіндерді көрсету үшін пайдаланады. Графикалық дизайнерлер RGB және CMYK арасындағы айырмашылықты, сондай-ақ sRGB және Adobe RGB сияқты жұмыс кеңістіктерін түсіну өте маңызды. Көрермендер сіздің аяқталған жобаларыңызды қалай көретінін анықтайды.

RGB Түсті Үлгі Негіздері

ad

RGB түс үлгісі барлық көрінетін түстердің қызыл, жасыл және көк түстердің негізгі қоспаларымен жасалуы мүмкін теорияға негізделген. Бұл түстер «негізгі қоспалар» деп аталады, себебі олар бірдей мөлшерде біріктірілген кезде, олар ақ түске ие болады. Олардың екеуі немесе үшеуі түрлі мөлшерде біріктірілген кезде, басқа түстер жасалады.

Мысалы, қызыл және жасыл мөлшерде бірдей мөлшерде сары, жасыл және көгілдір жасыл түстер жасайды, ал қызыл және көк түстер күреңді жасайды. Бұл арнайы формулалар басып шығаруға қолданылатын CMYK түстерін жасайды .

Сіз қызыл, жасыл және көк түсті мөлшерін өзгертсеңіз, сізге жаңа түстер беріледі. Комбинациялар түстердің шексіз массасын береді.

Сонымен қатар, осы негізгі қоспалар түстерінің біреуі болмаған кезде сіз қара болады.

Графикалық дизайндағы RGB түстері

RGB моделі графикалық дизайн үшін маңызды, себебі ол компьютер мониторында қолданылады. Сіз бұл мақаланы оқып жатқан экранда суреттер мен мәтіндерді көрсету үшін қосымша түстерді пайдаланып жатырсыз. Сондықтан сіздің мониторыңыз тек қызыл, жасыл және көк түстерді реттеуге мүмкіндік береді және сіздің мониторыңыздың түс калибраторы осы үш түстің экрандарын өлшейді.

Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.