Регистрация
romaantonizin1
31.03.2020 03:10
Информатика
Есть ответ 👍

Информатика Паскаль бллов дам!​

100
478
Посмотреть ответы 3

Ответы на вопрос:

witruk
witruk
4,5(89 оценок)

Объяснение:

program ArrayX;

var

x : array [1..10] of integer;

i, qty : integer;

begin

qty:=0;

for i:= 1 to 10 do begin

x[i] := random(20)-10;

if x[i] > 2 then qty := qty+1;

writeln('x[',i,'] = ',x[i]);

end;

writeln('Qty of x>2 = ',qty);

end.

===================

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64

Copyright (c) 1993-2012 by Florian Klaempfl and others

Target OS: Linux for x86-64

Compiling main.pas

Linking a.out

18 lines compiled, 0.2 sec

/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?

x[1] = 0

x[2] = 1

x[3] = 4

x[4] = 6

x[5] = 2

x[6] = 7

x[7] = 0

x[8] = 6

x[9] = -2

x[10] = 2

Qty of x>2 = 4

...Program finished with exit code 0

Press ENTER to exit console.

Demontino2016
Demontino2016
4,4(52 оценок)
PascalABC.NET ₃.₆.₃.₂₅₇₇## ArrRandom(10, -10, 10).Println.Count(x -> x>2).Print

Пример работы:


Информатика Паскаль бллов дам!​
slia1984
slia1984
4,6(81 оценок)
При использовании 16384 цветов для хранения одной точки требуется log(2)16384 = 14 бит. количество точек рисунка = 9696*8 / 14  ≈ 5540

Популярно: Информатика