1-тапсырма
Жумыс жасап отырған компьютерінде қандай браузер-
онатылған және қандай бетбелгілер қосылған? Дәпте-
ріңе жаз.
2-тапсырма
Сен өз электронды поштаңды құрып, оған пароль қою-
е білесің. Енді өз пароліңді сенімді парольге алмастырып
көр.
3-тапсырма
https://learningapps.org/ сайтын ашып, тіркел. Тіркел-
ген сайтқа сенімді пароль мен логин қой. Сен осы сайтта
тапсырмалар жасайсың. Сондықтан логиніңді блокнотқа
жазып, пароліңді есте сақта.
тынды
Жасаған жұмысың өзіңе ұнады ма?
Қандай тапсырманы орындау қиын болды?
көмектесіңіздерші өтінемін​

// PascalABC.Net 3.0, сборка 1088
const
  n=30;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
    if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k)
  end;
  Writeln;
  Writeln('Количество найденных элементов равно ',k)
end.

Тестовое решение:
*** Исходный массив ***
503 187 764 452 351 819 339 940 681 369 938 874 639 212 633 825 983 830 121 801 889 36 479 14 357 382 631 8 402 61
Количество найденных элементов равно 3

// PascalABC.Net 3.0, сборка 1088
const
  n=6;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
  end;
  Writeln;
  Writeln('*** Результат ***');
  Write(a[1],' ');
  for i:=2 to n-1 do begin
    if Odd(a[i]) then a[i]:=a[i]+a[n]
    else a[i]:=a[i]+a[1];
    Write(a[i],' ');
  end;
  Writeln(a[n])
end.

Тестовое решение:
*** Исходный массив ***
706 46 715 899 103 308
*** Результат ***
706 752 1023 1207 411 308