Решить графически, с диаграмм эйлера: на 20 % компьютеров компании установлена операционная система microsoft windows xp, на 85% компьютеров установлена microsoft windows 7, на 10% установлена операционная система linux. все свои одновременно linux и microsoft windows 7 установлены на 6% компьютеров, microsoft windows xp и linux на 4% , все три программы установлены на 2% компьютеров. на скольких процентах компьютеров установлена операционные системы компании microsoft?

uses crt;

type

massiv = array [1..100] of integer; // объявляем свой тип данных

var

mass : massiv ;

sum, proiz , i , n: integer;

begin

clrscr;

write('Введите длину массива : '); readln(n);

sum := 0 ;

proiz := 1 ; // единица потому что у нас умножение, если умножать на 0 будет 0 всегда!!

for i:=1 to n do

begin

write('Введите ', i , ' элемент : '); readln(mass[i]);

if (mass[i] mod 2 = 0) then sum := sum + mass[i]

else proiz := proiz * mass[i];

end;

writeln('Сумма четных равна ', sum);

writeln('Произведение нечетных равно ', proiz);

readln; // чтобы программа не закрывалась

end.

Линейная структура. Линейная структура данных (или список) — это упорядоченная структура, в которой адрес данного однозначно определяется его номером (индексом). Примером линейной структуры может быть список учебной группы или дома, стоящие на одной улице.

В списках, как правило, новый элемент начинается с новой строки. Если элементы располагаются в строчку, нужно внести разделительный знак между элементами. Поиск осуществляется по раздели-

телям (чтобы найти, например, десятый элемент, надо отсчитать девять разделителей).