Всоревновании принимают участие 30 спортсменов. номера и результаты спортсменов хранятся в двух одномерных массивах. определите и выведите на экран тех участников, которые набрали менее 70 . паскаль
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) begin var n:=0; var a: array[0..29] of integer; //массив с номерами участников for var i := 0 to 29 do a[i] := i; //Заполняем номерами var b:=ArrRandom(30,0,100); //Заполним сл.числами массив ст результатами for var i:=0 to 29 do if b[i]<70 then println('Номер участника:',a[i],' :',b[i]); end.
По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.
Program Vby_1; uses crt; var a,b,c:real; begin writeln('*** Alphaues is thinking... ***'); writeln('Ok, введите катеты: '); write('a= ');readln(a); write('b= ');readln(b); writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2); end.
Program Vby_2; uses crt; var a,b,h,t:real; begin writeln('*** Alphaues is thinking... ***'); writeln('Ok, введите данные: '); write('Одно основание = ');readln(a); write('Другое основание = ');readln(b); write('Высота = ');readln(h); t:=abs(a-b)/2; writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2); end.
Program Vby_3; uses crt; var s:integer; begin writeln('*** Alphaues is thinking... ***'); write('Ok, введите расстояние в сантиметрах: '); readln(s); write('Число полных метров = ',s div 100); end.
begin
var n:=0;
var a: array[0..29] of integer; //массив с номерами участников
for var i := 0 to 29 do a[i] := i; //Заполняем номерами
var b:=ArrRandom(30,0,100); //Заполним сл.числами массив ст результатами
for var i:=0 to 29 do
if b[i]<70 then println('Номер участника:',a[i],' :',b[i]);
end.