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

Вопросы к зачету по массивам: 1. объявление массива заполнения массива вывода массива 4. суммирование всех элементов массива 5. суммирование элементов массива по условию 6. подсчет количества элементов массива по условию 7. нахождение наибольшего элемента массива 8. сортировка массива

👇
Ответ:
01061969
01061969
21.06.2021
1)имя : array [ начальное значение .. окончательное значение ] of тип массива
2)С
readln(mas[i])
3)for i:=1 to n fo
writeln(mas[i])
4)s:=o
for i:=1 to n fo
s:=s+mas[i]
5)s:=o
for i:=1 to n
if условие then
s:=s+mas[i]
6)
k:=o
for i:=1 to n
if условие then
k:=k+1
7)max:=mas[1]
for i:=1 to n
if max < mas[i] then
a :=max ;
max:=mas[i];
mas[i]:=a;
8)Сортировки бывают разные например такая
for i:=1 to n-1 do
for j:=1 to n-i do
if mas[i]>mas[i+1] then
a :=mas[j+1];
mas[j+1]:=mas[j];
mas[j]:=a;
4,4(54 оценок)
Открыть все ответы
Ответ:
Элайза5
Элайза5
21.06.2021
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2).
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
   then write(fr2,Marshrut)
   else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
  begin
  read(fr, Marshrut);
  write(fr2,Marshrut);
  end;
if (kol=1) then  write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).

Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
 begin
 read(fr, Marshrut);
 seek (fr, k1);
 write(fr, Marshrut);
 seek (fr, k2);
 write (fr, y);
 end;

end;
4,4(12 оценок)
Ответ:
Yaritas
Yaritas
21.06.2021
1. Вероятность вынуть первым красный карандаш определяется отношением количества красных карандашей к их общему числу, т.е. 2/4 или 1/2.
2. Теперь в коробке остался один красный карандаш, а всего карандашей - три. Вероятность вынуть красный карандаш равна 1/3.
3. Вероятность наступления обоих событий определяется произведением обоих вероятностей и составляет 1/2 × 1/3 = 1/6
Итак, два красных (а также два синих) карандаша можно вынуть с вероятностью 1/6.
Сумма всех вероятностей равна 1, с вероятностью 1/6 оба карандаша будут красные, 1/6 - синие, значит на долю события, когда карандаши будут разного цвета остается 1 - 1/6 - 1/6 = 2/3
4,6(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ