Дайте пояснения к каждому пункту, (что значит каждый пункт) основными чертами современной (новой) информационной технологии являются: -дружественный программный и аппаратный интерфейс; -интерактивный (диалоговый) режим решения ; -сквозная информационная поддержка всех этапов решения на основе интегрированной базы данных; -возможность коллективного решения на основе информационных сетей и систем телекоммуникаций; -безбумажная технология, при которой основным носителем информации является не бумажный, а электронный документ.

Задание 1

Давайте рассмотрим, что происходит в следующей части кода:

n := Ves[1]нц для k от 1 до 14если Ves[k] < n тоn := Ves[k]всекц

Сначала мы присваиваем переменной n значение первого элемента массива Ves. Затем создаём цикл с итератором k, который проходит значения от 1 до 14. В каждой итерации (1 проход всех операторов / выражений в цикле) мы проверяем, является ли n больше k-того элемента и, если это условие не выполняется (то есть Ves[k] > n), то это значение присваивается переменной k. Что это значит? То, что мы находим минимальный элемент. Мы можем не работать дальше с этой частью кода, а просто найти минимальное значение в массиве.

ответ

21

Задание 2

Рассмотрим данную часть кода:

score := 0;нц для k от 1 до 9если A[k] >= 9 тоscore:= score+A[k]всёкц

Мы объявляем переменную, которая, судя по названию, хранит сумму чего-то. Затем в цикле от 1 до 9 мы проверяем, является ли k-тый элемент массива A больше или равен 9. Если так, то мы добавляем это число в переменную score. Что это значит? Что мы находим сумму всех элементов, которые больше или равны 9. Такие элементы:

11 12 13 9

ответ

45

Задание 3

Задание абсолютно противоположно первому. Здесь мы находим максимальный элемент.

ответ

41

program raf105;

var fam,pol:array[1..100] of string;

n,i:integer;

begin

write('Введите количество детей: ');

readln(n);

writeln('Вводите фамилии и пол (Заглавной буквой М/Ж)');

for i:=1 to n do

begin

 writeln;

 write('[',i,'] ','Фамилия: ');

 readln(fam[i]);

 write('    Пол: ');

 readln(pol[i]);

end;

writeln;

writeln('Фамилии девочек начинающиеся на "А" и мальчиков заканчивающиеся на "в"');

for i:=1 to n do

 if (fam[i][1]='А') and (pol[i]='Ж') or (fam[i][length(fam[i])]='в') and (pol[i]='М')

   then writeln(fam[i]);

end.

Язык программирования PascalABC