CorelDRAW
(программа для изображения узоров)
Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.
Идёт ток к искре каторая нагривает чай
#1
program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end.
#2
program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a);
if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
Мы получили 1/10 всей информации т.к нам открыли 1 из 10-ти букв