М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

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

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

1)s: =a[1]
2)s: =0
3)s: =a[n]
4)s: =1
6. задан одномерный массив а, содержащий n элементов. укажите, что будет определено в результате работы следующего фрагмента программы:
s: =0;
for i: =1 to n do
if a[i]> 0 then s: =s+a[i];
1)максимальный элемент массива
2)сумма неотрицательных элементов массива
3)количество положительных элементов массива
4)сумма положительных элементов массива
7. выберите правильное описание массива а, состоящего из нескольких переменных целого типа
1)a : array [1..25] of byte
2)a : [1..25] of integer
3)a : array [1..25] of integer
4)a : array [1..25] of real
8. задан одномерный массив а, содержащий n элементов. значения всех элементов массива различны. укажите, что будет определено в результате работы следующего фрагмента программы:
m: =1;
for i: =1 to n do
if a[i]> =a[m] then m: =i

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

1)a[i]> 0
2)a[i]< =0
3)a[i]< 0
4)a[i]> 0

👇
Ответ:
анастатья
анастатья
13.03.2021

1 - 1, (4 тоже верно, будут еще индексы выводиться)

2 - 2 - всё верно

3 - 3 59 элементов

4 - 4 массив и 2 множество подходят оба ответа

5 - 4 S := 1

6 - 2)Сумма неотрицательных элементов массива  

7 - 1)A : array [1..25] of byte

   3)A : array [1..25] of integer

   оба правильно

8 - 1)Индекс максимального элемента массива (в переменной m)

9 - программа не правильная

4,8(66 оценок)
Открыть все ответы
Ответ:
wolk2amiri2
wolk2amiri2
13.03.2021
Program p1;

var
  a, b, c, s: real;

begin
  Writeln('Вычислите S поверхности параллелепипеда.');
  Writeln('Введите исходные данные:');
  Write('Длина(см)? '); Readln(a);
  Write('Ширина(см)? '); Readln(b);
  Write('Высота(см)? '); Readln(c);
  s := 2 * (a * b + b * c + c * a);
  Writeln('Площадь поверхности: ', s, ' кв.см.')
end.

Тестовое решение:
Вычислите S поверхности параллелепипеда.
Введите исходные данные:
Длина(см)? 9
Ширина(см)? 7.5
Высота(см)? 5
Площадь поверхности: 300 кв.см.

program p2;
var
  ct,ck,s:real;
  kt,kk:integer;
begin
  Writeln('Вычисление стоимости покупки');
  Writeln('Введите исходные данные:');
  Write('Цена тетради(руб.)? '); Readln(ct);
  Write('Количество тетрадей? '); Readln(kt);
  Write('Цена карандашей(руб.)? '); Readln(ck);
  Write('Количество карандашей? '); Readln(kk);
  s:=ct*kt+ck*kk;
  Writeln('Стоимость покупки: ',s:0:2,' руб.')
end.

Тестовое решение:
Вычисление стоимости покупки
Введите исходные данные:
Цена тетради(руб.)? 2.75
Количество тетрадей? 5
Цена карандашей(руб.)? 0.85
Количество карандашей? 2
Стоимость покупки: 15.45 руб.
4,5(84 оценок)
Ответ:
squarenq
squarenq
13.03.2021
Program p1;

var
  a, b, c, s: real;

begin
  Writeln('Вычислите S поверхности параллелепипеда.');
  Writeln('Введите исходные данные:');
  Write('Длина(см)? '); Readln(a);
  Write('Ширина(см)? '); Readln(b);
  Write('Высота(см)? '); Readln(c);
  s := 2 * (a * b + b * c + c * a);
  Writeln('Площадь поверхности: ', s, ' кв.см.')
end.

Тестовое решение:
Вычислите S поверхности параллелепипеда.
Введите исходные данные:
Длина(см)? 9
Ширина(см)? 7.5
Высота(см)? 5
Площадь поверхности: 300 кв.см.

program p2;
var
  ct,ck,s:real;
  kt,kk:integer;
begin
  Writeln('Вычисление стоимости покупки');
  Writeln('Введите исходные данные:');
  Write('Цена тетради(руб.)? '); Readln(ct);
  Write('Количество тетрадей? '); Readln(kt);
  Write('Цена карандашей(руб.)? '); Readln(ck);
  Write('Количество карандашей? '); Readln(kk);
  s:=ct*kt+ck*kk;
  Writeln('Стоимость покупки: ',s:0:2,' руб.')
end.

Тестовое решение:
Вычисление стоимости покупки
Введите исходные данные:
Цена тетради(руб.)? 2.75
Количество тетрадей? 5
Цена карандашей(руб.)? 0.85
Количество карандашей? 2
Стоимость покупки: 15.45 руб.
4,5(47 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ