Формальной информационной моделью является а) анатомический муляж; б) техническое описание компьютера; в) рисунок функциональной схемы компьютера; г) программа на языке программирования. 6. компьютерный эксперимент может быть проведен, если информационная модель представлена в форме а) программы на языке программирования; б) изображения в растровом графическом редакторе; в) изображения в векторном графическом редакторе; г) текста в текстовом редакторе.
Ответы
from random import randint
n = 10
a = [0]*n
for i in range(0,n):
a[i] = randint(1,100)
for i in range(0,n):
if a[i] % 2==0:
print('a[',i,']==',a[i])
Объяснение:
при запуске выводит случайные числа
пример вывода
a[ 1 ]== 0
a[ 2 ]== 0
a[ 3 ]== 0
a[ 4 ]== 0
a[ 5 ]== 0
a[ 6 ]== 0
a[ 7 ]== 0
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 0
a[ 3 ]== 0
a[ 4 ]== 0
a[ 5 ]== 0
a[ 6 ]== 0
a[ 7 ]== 0
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 0
a[ 4 ]== 0
a[ 5 ]== 0
a[ 6 ]== 0
a[ 7 ]== 0
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 86
a[ 4 ]== 0
a[ 5 ]== 0
a[ 6 ]== 0
a[ 7 ]== 0
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 86
a[ 4 ]== 2
a[ 5 ]== 0
a[ 6 ]== 0
a[ 7 ]== 0
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 86
a[ 4 ]== 2
a[ 6 ]== 0
a[ 7 ]== 0
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 86
a[ 4 ]== 2
a[ 7 ]== 0
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 86
a[ 4 ]== 2
a[ 7 ]== 96
a[ 8 ]== 0
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 86
a[ 4 ]== 2
a[ 7 ]== 96
a[ 8 ]== 66
a[ 9 ]== 0
a[ 1 ]== 44
a[ 2 ]== 32
a[ 3 ]== 86
a[ 4 ]== 2
a[ 7 ]== 96
a[ 8 ]== 66
>>>
Pascal
var
ar: array of integer;
i, j, a, b, k, n :integer;
begin
(* Дан массив целых чисел (n = 20), *)
(* заполненный случайным образом числами из промежутка [-45, 95].*)
randomize;
n:=20;
setlength(ar, n);
for i := 0 to n-1 do begin
ar[i]:= random(140)-45;
write(ar[i],' ');
end;
writeln;
(* Удалить из него все элементы, кратные 7 и *)
(* принадлежащие промежутку [a, b] (a и b вводить с клавиатуры)*)
writeln('введите диапазон [a,b]');
readln(a,b);
i:=0;
while i <= n-1 do
if (ar[i] mod 7 = 0) and (ar[i]>=a) and (ar[i]<=b)then begin
for j := i+1 to n - 1 do
ar[j-1] := ar[j];
n := n - 1
end
else
inc(i);
setlength(ar, n);
for i := 0 to n-1 do begin
write(ar[i],' ');
end;
writeln;
(* Вставить число k между всеми соседними элементами, которые образуют пару *)
(* элементов с одинаковыми знаками k вводить с клавиатуры).*)
writeln('введите k');
readln(k);
i := n - 1;
while i > 0 do begin
if ar[i]*ar[i-1]>0 then begin
inc(n);
SetLength(ar, n);
for j := n - 1 downto i do
ar[j] := ar[j-1];
ar[i] := k;
end;
dec(i);
end;
for i := 0 to n-1 do
write(ar[i],' ');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дано ціле число. Визначте, чи є воно парним
Как записать данную формулу в экселе? ctg x = x/5
построить блок-схемы по информатике .
