решить тест по информатике.
Во Укажите правильное описание одномерного массива целых чисел.
Варианты ответов
а)Var mas: array [1..7] of integer; i: integer;
б)Var A: array [1..9 of integer]; i: integer;
в)Var Massiv: array [1…10] of integer; i: integer;
г)Var rew: array [1..1] of integer; i: integer;
д)Var a: array (1..10) of real; i: integer;
Во Дан массив, заполненный следующим образом:
For i:=1 to 5 do a[i]):=2*i-1;
Чему будет равен четвертый элемент этого массива a[4]=?
Во Что производит следующий фрагмент программы?
For i:=1 to 8 do writeln (a[i] );
Варианты ответов
а)Ввод элементов массива по формуле;
б)Ввод элементов массива с клавиатуры;
в)Вывод элементов массива в столбец;
г)Вывод элементов массива в строку.
Во Что выполняет фрагмент программы?
For i:=1 to 10 do readln(A[i]);
Варианты ответов
а)заполнение массива с клавиатуры
б)заполнение массива с датчика случайных чисел
в)выводит элементы массива на экран
г)обнуляет массив
Во Что выполняет фрагмент программы?
For i:=1 to 10 do A[i]:=random(1000)-500;
Варианты ответов
а)заполнение массива с клавиатуры
б)заполнение массива с датчика случайных чисел
в)выводит элементы массива на экран
г)обнуляет массив
Во Что выполняет фрагмент программы?
For i:=1 to 10 do A[i]:=0;
Варианты ответов
а)заполнение массива с клавиатуры
б)заполнение массива с датчика случайных чисел
в)выводит элементы массива на экран
г)обнуляет массив
Во Что производит следующий фрагмент программы?
For i:=1 to 8 do writeln (a[i]);
Варианты ответов
а)Ввод элементов массива по формуле
б)Ввод элементов массива с клавиатуры
в)Вывод элементов массива в столбец
г)Вывод элементов массива в строку
Во Может ли массив одновременно содержать целые и вещественные значения
Варианты ответов
а)Да
б)Нет
Во Дан массив:
const b: array [1..7] of integer = (11, -2, 5, 13, 48, 0, -9 );
Чему будет равен пятый элемент массива b[5]=?
Во Что производит следующий фрагмент программы?
For i:=1 to 7 do write (a[i]:4);
Варианты ответов
а)Ввод элементов массива по формуле
б)Вывод элементов массива в столбец
в)Ввод элементов массива с клавиатуры
г)Вывод элементов массива в строку

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

↓

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

П6о6л6я

04.09.2022 13:37

Как научится писать на клавиатуре не смотря на неё? распорядок клавиш знаю наизусть!...

thenoname1105

04.09.2022 13:37

Как расшифровать утрщпр удбикфжую у аипэо шжпфтро...

sernikovs

04.09.2022 13:37

Красный и круглый могут быть значениями свойства разных объектов.это ложь или истина...

Анжелика200611111

13.01.2023 08:17

Ещё) чему равна сумма чисел 101 и 11011 * 100000 100001 101010 11011...

123fafafartgd

07.12.2022 16:59

Procedure f(a: integer); begin a := 2° (a + 1); end; begin t := 2020; f(t + 1); write(t); end....

okolota05

23.04.2021 17:26

написать программы к двум задачам. К одной вывести результат через текстбокс в другой через мсджбокс 1. Довести с свойств алгоритма что решение квадратного уравнения...

ArtimonТёма22887

06.03.2020 06:04

Составь ребус к слову данные не списывайте напишите сами ...

rminichkina

03.01.2023 06:43

Напишите программу, которая считает сумму двух целых чисел...

лиза2698

20.08.2021 22:13

Информатика 9 классданные для компьютерной модели бросания мячика в площадку...

anka4323

20.02.2023 07:18

ПРОГРАММИСТЫ Напишите код блокнота,буду блогодарен...

Ответ:

kamuxa

24.05.2020 09:48

См. картинку во вложении.
ответ: 1

Такие задания решаются с трассировочной таблицы.
Выписываешь все переменные, которые есть в программе (если массив, то отдельно выписываешь каждую ячейку). Сколько переменных - столько столбцов в таблице. Потом притворяешься компьютером и выполняешь программу команда за командой, при этом записывая все изменения значений переменных по такому правилу:
1) если значение переменной ещё не определено, ничего не пишешь (оставляешь пустые клетки);
2) если значение переменной изменилось в ходе выполнения команды - пишешь новое значение (в моей таблице выделены жёлтым);
3) если значение переменной НЕ изменилось в ходе выполнения команды - пишешь старое значение (то есть переписываешь его из клетки, которая на одну выше).
В конце смотришь, значение какой переменной должен напечатать компьютер - это и есть ответ.

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

Ответ:

Патич232

25.10.2021 20:10

1-задача
var   A:array[1..5] of integer;
s,P,K,i,c :integer;
begin
   for I:=1 to 5 do begin
    write('ведите число ');
readln(A[i]);
end;
S:=0; c:=0;
P:=1; K:=0;
for I:=1 to 5 do begin
  if a[i]>0 then begin S:=S+A[i]; c:=c+1; end;
  if (a[i] mod 12)<>0 then P:=P*A[i];
    if (a[i]mod 2)=0 then K:=K+1;
end;
writeln('средняя сумма положительных чисел= ',S/c) ;
writeln('произведение чисел не кратных 12= ',P) ;
writeln('количество чётных чисел= ',k) ;
end.
можно сделать и с одним циклом. если надо - отпишись.

задача 2
расчёт с учётом того что у сотрудников разная ЗП
тоже можно сделать с одним циклом.
var   A:array[1..5] of integer;
i,zp:integer;
begin
   for I:=1 to 5 do begin
write('ведите зарплату сотрудника ',i,': ');
readln(A[i]);
end;
ZP:=0;
for I:=1 to 5 do ZP:=ZP+A[i];
write('общая сумма=',ZP);
end.
задача 3
var   A:array[1..20] of integer;
i,P,S,summ:integer;
begin
   for I:=1 to 20 do begin
write('ведите число ');
readln(A[i]);
end;
P:=1; S:=0;Summ:=0;
for I:=1 to 20 do begin
if A[i]>8 then begin P:=P*a[i];S:=S+1; end;
if (A[i]mod 15)<>0 then summ:=summ+A[i];
end;
writeln('среднее произведение чисел больше 8= ',P/S);
write('семма чисел не кратных 15= ',summ);
end.

и это тоже можно с одним циклом

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

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

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