8. у васи в электронном ящике 10 музыкальных файлов, а у коли 5. вася один из файлов отправил по электронной почте коле. сколько музыкальных файлов стало в электронных ящиках у васи и у коли, если коля ещё не смотрел свой ящик?

Слегка не понял. "если не смотрел" ну это ничего не меняет же.. файл уже отправлен по логике у васи остается 10, а у коли становится 6. т.к один файл был скопирован и отослан от васи

10 -1=9 у васи а у коли 5+1=6

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin   var a,b: real;   write('введите два числа через пробел: ');   read(a,b);   if a> b then writeln(a,'> ',b,', максимум равен ',a)   else       if a< b then writeln(a,'< ',b,', максимум равен ',b)       else writeln('веденные числа равны') end. тестовые решения: введите два числа через пробел: 36.4 32.15 36.4> 32.15, максимум равен 36.4 введите два числа через пробел: -46.46 -18.54 -46.46< -18.54, максимум равен -18.54 введите два числа через пробел: 38.0 38 веденные числа равны

//pascalabc.net 3.1 сборка 1200 begin   //  создаем массив и заполняем случайными числами от -50 до 50   var a : = arrrandom(readinteger('n='), -50, 50);   //выводим массив     a.println;   //находим индекс максимального элемента     var max : = a.indexmax();   // выводим значение макс. элемента и его индекса   writeln('max = ', a[max], ' index = ', max);   // заменяем максимальный элемент минимумом   a[max] : = -50;   //находим индекс второго максимального элемента (на данный момент уже первого)     max : = a.indexmax;   // выводим значение элемента и его индекса   writeln('max = ', a[max], ' index = ', max); end.