adyan22041996
17.04.2020 10:56

1. дан фрагмент программы, определяющий количество неотрицательных элементов массива a[1..10]. восстановите пропущенное условие.
k: =10;
i: =1;
while i< =10 do
begin
if then k: =k – 1;
i: =i+1
end;
write (p)
a[i]> 0
a[i]> 0
a[i]< =0
a[i]< 0
2.задан одномерный массив а, содержащий n элементов. укажите, что будет определено в результате работы следующего фрагмента программы:
k: =0;
for i: =1 to n do
if a[i]> =0 then k: =k+1
количество положительных элементов массива
максимальный элемент массива
количество неотрицательных элементов массива
сумма положительных элементов массива

3. что такое массив?
это структурированный тип данных, состоящий из элементов разных типов
это совокупность данных, объединенных под одним именем
это структурированный тип данных, состоящий из элементов одного типа, по номеру и объединенных под одним именем
это простой тип данных, состоящий из одного элемента
4. задан одномерный массив а, содержащий n элементов. значения всех элементов массива различны. укажите, что будет определено в результате работы следующего фрагмента программы:
m: =a[1];
for i: =1 to n do
if a[i]< =a[1] then m: =a[i]
значение максимального элемента массива
индекс максимального элемента массива
значение минимального элемента массива
индекс минимального элемента массива
5. дан одномерный массив.
-125 200 10 0 43 11

чему равно значение элемента массива с индексом 3.
6. выберите правильное описание массива а, состоящего из нескольких переменных вещественного типа
a : array [1..25] of real
a : array [1..25] of integer
a : [1..25] of real
a : array [1..25] of byte
7. var a: array [1..59] of integer;
при выполнении этого оператора в памяти компьютера будет выделено … ячеек целого типа.
50
58
59
60
8. каким ввода элементов массива а лучше воспользоваться, если значения элементов массива равны своим удвоенным индексам?
с оператора присваивания по формуле a[i]: =2* a[i]
с оператора присваивания по формуле a[i]: =2*i
с оператора присваивания случайными числами
любым из предложенных вариантов
9. выберите правильные варианты вывода элементов массива на печать в столбик. (2 ответа)
for i: =1 to n do writeln (a[i])
for i: =1 to n do writeln (`a`, i, `=`, a[i])
for i: =1 to n do write (a[i], ` ` )
for i: =1 to n do writeln ( i, `]=`)
10. какой оператор необходимо вставить вместо многоточия в следующий фрагмент программы на языке паскаль, чтобы верно решалась нахождения суммы элементов массива а, содержащего n элементов?

for i: =1 to n do s: =s+a[i]
s: =a[1]
s: =a[n]
s: =1
s: =0

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
di23di
14.12.2021 15:35
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:set of integer:=[];
  Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
  repeat
    var n:=ReadInteger;
    if not (n in [1..255]) then break
    else s+=[n]
  until false;
  Writeln('-'*10);
  foreach var k in s do
    if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.

Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500

77 8 55 222
0,0(0 оценок)
Ответ:
Mmmmmmamba
24.01.2020 05:39
Программа распознаёт только целые числа.

Var
   f:file of char;
   C:char;
   k,s:integer;
Begin
Assign(f,'file.txt');
Reset(f);
k:=0;
s:=1;
Write('Найденные числа:');
Repeat
Read(f,C);
if ('0'<=C)and(C<='9') then
   Begin
   k:=k+1;
   Write(' ');
   While ('0'<=C)and(C<='9')and Not Eof(f) do
      Begin
      Write(C);
      Read(f,C);
      if C=#13 then s:=s+1;
      End;
   End;
Until Eof(f);
Close(f);
WriteLn;
WriteLn('Их количество: ',k);
WriteLn('Количество строк в файле: ',s);
End.

Результат работы программы:

Найденные числа: 1 2 3 7 8 9 11 12 3 2 1 8 1 2 3 4
Их количество: 16
Количество строк в файле: 5

Чтобы программа работала данный файл должен находиться в одной папке с программой:
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота