//Pascal ABC.NET 3.1 сборка 1219
Const
n=100;
Var
ar:array[1..n] of integer;
i,j:integer;
begin
writeln('Array:');
for i:=1 to 100 do
begin
ar[i]:=i;
write(ar[i]:4);
end;
writeln;
writeln('Result:');
for i:=0 to 9 do
if not(odd(i)) then
begin
for j:=1 to 10 do
write(ar[i*10+j]:4);
writeln;
end
else
begin
for j:=10 downto 1 do
write(ar[i*10+j]:4);
writeln;
end;
end.
#include<iostream>
#include <ctime>
using namespace std;
void startTimer(int ms) {
clock_t end_time = clock() + ms * (CLOCKS_PER_SEC / 1000);
while (clock() < end_time) {}
}
int main () {
cout << "Waitig for 5 seconds..." << endl;
startTimer(5000); // 5s -> 5000ms
cout << "5 seconds left.";
cin.ignore();
return 0;
}
Петр вася маша оля антон соня
иван ира аня катя