Const N = 10; Var M:array[1..N] of integer; i,k:integer; Begin Randomize; Write('Эти числа не печатаются... ( '); For i:= 1 to N do Begin M[i] := random(31)-15; Write(M[i],' '); End; WriteLn(')'); Write('Положительный числа:'); For i:= 1 to N do if (M[i] > 0) then Write(' ',M[i]); End.
#include <iostream> using namespace std; int main() { setlocale (0,""); int n1,n2,n3,p1,p2,p3; cout<<"введите количество учеников в каждом классе"<<endl; cout<<"1-"; cin>>n1; cout<<"2-"; cin>>n2; cout<<"3-"; cin>>n3; p1=n1/2; if (n1%2!=0) p1++; p2=n2/2; if (n2%2!=0) p2++; p3=n3/2; if (n3%2!=0) p3++; cout<<"для первого класса - "<<p1<<endl; cout<<"для второго класса - "<<p2<<endl; cout<<"для третьего класса - "<<p3<<endl; return 0; }
Const n = 5; var i: integer; a: array[1..n * 2 + 1] of integer; begin writeln('исходный массив: '); for i : = 1 to 2 * n do begin a[i] : = random(99) + 1; write(a[i] : 5); end; for i : = 2 * n + 1 downto n + 1 do a[i] : = a[i - 1]; a[n + 1] : = 0; writeln(); writeln('полученный массив: '); for i : = 1 to 2 * n + 1 do write(a[i] : 5); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-15,15); a.Println;
a.Where(t->t>0).Println
end.
Пример
4 -11 7 12 -10 8 -9 -14 1 -15
4 7 12 8 1