составить программу в Паскале
10-11 класс
|
var
a:array[1..1000]of real;
i,n,x:integer;
begin
write('Размер массива:');
readln(n);
for i:=1 to n do
begin
a[i]:=(random(400)+400)/10;
if (a[i]<=57) and (a[i]>50) then x:=x+1;
write(a[i],' ');
end;
writeln;
if x=0 then writeln('Таких спортсменок нет')
else writeln('Искоммое количество: ',x)
end.
Другие вопросы из категории
Используя формулы нахождения
дискриминанта и неизвестных,
решите квадратное
уравнение 12х^2+5х-2=0
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
2. Составить программу для упорядоченное двух элементов по убыванию.
программу меняющихся местами первую и последнюю цифру.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.