Во Какие операторы не могут быть выполнены в теле цикла с указанным заголовком?
for i:=1 to n do

Варианты ответов

i:=i-1;

t:=i+2;

n:=n-1;

t:=n-i;

Во Какой оператор в языке Паскаль предназначен для реализации цикла с заданным числом повторений?

Варианты ответов

if

for

while

repeat

Во Какие из приведённых циклов предназначены для возведения числа k в степень n?

Варианты ответов

for i:=1 to n do k:=kk;

r:=1; for i:=1 to n do r:=rk;

for i:=n downto 1 do k:=kk;

r:=1; for i:=n downto 1 do r:=rk;

Во Чему будет равно значение переменной t после выполнения данной последовательности команд?
t:=0;
for i:=1 to 20 do
for j:=1 to 30 do
t:=t+1;

Во Какая из приведённых блок-схем описывает цикл с заданным числом повторений?

Варианты ответов

Во Частным случаем какого цикла является цикл с заданным числом повторений?

Варианты ответов

Цикла с параметром

Цикла с постусловием

Цикла с предусловием

Никакого из перечисленных

Во Сколько раз будет выполнен заданный цикл?
for i:=20 downto 1 do
t:=random (100);

Варианты ответов

1

19

20

21

Во Сколько раз будет выполнен заданный цикл?
for i:=1 to 15 do
t:=random (100);

Варианты ответов

15

1

0

14

Во Как называется цикл, число повторений которого неизвестно до начала его работы?

Варианты ответов

Итерационный цикл

Цикл с предусловием

Цикл с постусловием

Безитерационный цикл

Во Сколько раз будет выполнен описанный цикл?
for i:=2 to 1 do
t:=random (100);

Варианты ответов

1

2

0

3

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

машуля125

02.07.2020 01:34

Дан одномерный массив целых чисел,сост.из 14 ячеек,заполн.случайными числами из промежутка [-20; 50].увелич.каждый элемент массива на 150...

просто4классница

31.07.2022 08:39

Напишите буквами последовательность в которой единицы измерения будут расположены в порядке возрастания: а) 2028 байт, б) 4 байта, в) 26 бит, г) 2 кбайт, д) 22 бит, е) 3 байт...

Ариса27

25.02.2023 19:14

Сообщение записанное буквами 64-x символьного алфавита содержит 32 символа сколько бит информации в данном сообщениеи...

arinamal1

25.02.2023 19:14

3. что происходит с информацией, если информационные каналы имеют плохое качество или на линии связи возникают помехи?...

daryabozhko2006

25.02.2023 19:14

Как называется процесс получения информации из интернета...

Yangelskiy

25.02.2023 19:14

Найдите значение логического выражения: (-1v1)^(1v-1)^(-1v0)...

анлггрн765

12.04.2020 14:59

Дана произвольная квадратная матрица определить максимальный элемент над главной диагональю определить его qbasic...

Аполлинарияполишка

03.07.2020 07:47

Врезультате выполнения фрагмента программы: а: =5; b: =20; а: =а-b/2; if а b then с: =а+b else с: =b-а; переменная с примет значение а -15,4 б 14,5 в 25 г 14,5...

akhmetova1

03.07.2020 07:47

Укажите правильный адрес ячейки а)б304 б)1с в)авс123 г) r1b156...

kate050804

31.07.2021 22:57

1. Сколько максимум фотографий поместится на флешку размером 8 Гб? Размер одной фотографии 5 Мб.1. 16002. 16383. 17004. 1500...

Ответ:

МюслиКотаНомер1

29.01.2022 15:53

//Pascal
var
A: array [1 .. 5, 1 .. 4] of integer;
V: array [1 .. 20] of integer;
i, j, z: byte;
SUM1, SUM2, SUM3, MIN: integer;
begin
randomize;
writeln('***Сгенерированный массив***');
SUM1 := 0; SUM2 := 0; SUM3 := 0;
for i := 1 to 5 do
begin
    for j := 1 to 4 do
    begin
      A[i, j] := random(30);
      if ((A[i, j] >= 0) and (A[i, j] <= 5)) then SUM1 := SUM1 + A[i, j];
      if ((A[i, j] >= 5) and (A[i, j] <= 15)) then SUM2 := SUM2 + A[i, j];
      write(A[i, j]:6)
    end;
    writeln;
end;
writeln('Сумма элементов [0 5] = ', SUM1);
writeln('Сумма элементов [5 15] = ', SUM2);
MIN := A[3, 1];
for j := 1 to 4 do if A[3, j] < MIN then MIN := A[3, j];
writeln('Минимальный элемент в третьей строке = ', MIN);
writeln('***Вектор***');
j := 1;
z := 0;
while (z < 20) do
begin
    for i := 1 to 5 do
    begin
      z := z + 1;
      V[z] := A[i, j];
    end;
    j := j + 1;
end;
for i := 1 to 20 do writeln(V[i]:6);
for i := 20 downto 10 do SUM3 := SUM3 + V[i];
writeln('Сумма последних 10-ти элементов = ', SUM3);
readln;
end.

0,0(0 оценок)

Ответ:

mashka0414

20.03.2021 19:43

1. Современное решение (быстро, просто и легко)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.

Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833

2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)

uses Crt;
var
n:integer;
x,a:real;
begin
a:=0;
n:=0;
repeat
    Read(x);
    if x>=0 then begin
      n:=n+1;
      a:=a+x
      end
until x<0;
a:=a/n;
Writeln('Ср.арифм: ',a:0:4);
ReadKey
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку