Регистрация
farcry7
15.07.2020 23:12
Информатика
Есть ответ 👍

Придумайте кодовое слово по информатике

282
440
Посмотреть ответы 2

Ответы на вопрос:

syromyatnikovа
syromyatnikovа
4,4(64 оценок)
  а             р           к             арка 010           00         10       0100010010 как-то так. мы в 7 классе такую делали. тут несколько вариантов.
alex27045
alex27045
4,5(74 оценок)
//сегодня буду скучным //pascal abc.net v3.1 сборка 1219 const   n=20; var   ar: array[1..n] of integer;   i,s,k,min,j: integer; begin   randomize;   min: =2147483647;   for i: =1 to 10 do   ar[i]: =random(-15,21);   for i: =11 to 17 do   ar[i]: =i*6;   for i: =18 to n do   readln(ar[i]);   writeln('array: ');   for i: =1 to n do   write(ar[i]: 4);   writeln;   i: =2;   while i< > n+2 do   begin   s: =s+ar[i];   i: =i+2;   end;   writeln('sum=',s);   for i: =1 to n do   if ar[i]> 0 then k: =k+1;   writeln('count of positive elements=',k);   for i: =10 to n do   if min> ar[i] then min: =ar[i];   writeln('min=',min);   for i: =1 to n-1 do   for j: =i+1 to n do     if ar[i]< ar[j] then     begin       k: =ar[i];       ar[i]: =ar[j];       ar[j]: =k;     end;   writeln('sorted array: ');   for i: =1 to n do   write(ar[i]: 4); end.

Популярно: Информатика