Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
pdp32
(* USER: 1736 LANG: PASCAL TASK: erasmus *) var select,i,j,n,m,count:integer; x:array[1..1000] of integer; found:boolean; begin readln(n); for i:=1 to n do read(x[i]); readln; readln(m); for i:=1 to m do begin read(count); writeln('number of selections: ',count); found:=false; for j:=1 to count do begin read(select); writeln('checking school: ',select); if x[select]>0 then begin;found:=true; writeln('found a place at school: ',select); x[select]:=x[select]-1; break;end end; if not found then writeln('NONE'); if i<m then writeln('next student.....'); readln; end; end.
run
|
edit
|
history
|
help
0
123
5
practica 3 ejercicio 7
звёздное небо и подсчёт кратных звёзд
pizza
считалочка02
Prodavnica
Uji soal 1
Вычисление e^x с помошью ряда Тейлора
Количество пар кр и не кр 11 оптимизированное с логикой