begin Randomize; Writeln('Элементы массива'); k := 0; s := 0; for i := 1 to n do begin x[i] := Random(50); Write(x[i]:3); end; Writeln; Writeln('Элементы со значением в интервале [7;10]'); for i := 1 to n do if (x[i] >= 7) and (x[i] <= 10) then begin k := k + 1; s := s + x[i]; Write(x[i]:3) end; if k = 0 then Writeln('не найдены') else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3) end.
Разгадайте кроссворд:1.) Другое название прикладной программы. ( 10 букв ) 2.)Изображение на экране монитора готового к работе компьютера ( два слова) ( 7 букв в первом слове и 4 буквы во втором слове ) 3.) Единица информации , равная восьми битам. ( 4 буквы) 4.) Группа файлов, имеющая имя; контейнер для файлов. ( 6 букв) 5.) Прямоугольная область, занимаемая на рабочем столе работающей программой. ( 4 буквы) 6.) Файл содержащий данные ( рисунки, тексты). ( 8 букв) 7.) обязательная часть програмного обеспечения - ... система. ( 12 букв) 8.) самая маленькая единица измерения информации. ( 3 буквы) 9.) информация хранящаяся в долговременной памяти как единое целое и обозначенная именем. ( 4 буквы)1. Приложение 2. Добро 3. Байт 4. Каталог, папка. директория, фолдер 5. Окно 6. Документ 7. Операционная система 8. бит 9. Файл
program sqrsum;
var sum,a,b,i:integer;
begin cls;
sum:=0;
write('Введите начальное нечетное число ');
readln(a);
write('Введите конечное нечетное число ');
readln(b);
write('Сумма квадратов нечетных чисел от ',a,' до ',b,' равна ');
repeat
sum:=sum+sqr(a);
a:=a+2
until a>b;
writeln(sum)
end.
ussrex
Вот тебе универсальное решение на ABC Pascal, которое посчитать сумму квадратов нечетных чисел в любом диапазоне (можно и четные посчитать)