<em>// PascalABC.NET 3.2</em>
begin
var a:array[1..9] of integer;
var i:=1;
while i<=7 do begin
a[i]:=i*i+5;
a[i+1]:=Trunc(sqrt(a[i]));
a[i+2]:=a[i] div a[i+1];
i:=i+3
end;
for var j:=1 to 9 do Write(a[j],' ');
Writeln
end.
<u>Результат</u>
6 2 3 21 4 5 54 7 7
Const
handsfree = false;
var
a: array[1..100] of real;
i, n: integer;
sum, product, harmonic: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if abs(a[i]) <= 5 then
sum := sum + a[i];
writeln('sum = ', sum);
end.
1) потому что меняя масштаб растрового изображения, мы меняем количество пиклелей.
2) Потому что растровое изображение позволяет делать изображения большие по объёму
2-б
3-а
ббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббб
Ответ:
var a:array [1..15] of integer ;
i,col:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>200 then col:=col+1;
end;
writeln('Колічесто: ',col);
end.
Объяснение: