merzlikinairena
?>

Для введення в клітинку числа з двома знаками після коми треба обрати …. формат даних для клітинки. Встав пропущене слово. Дробовий, Текстовий, Числовий, Загальний?2.Укажіть вірну адресу клітинки А12С, В1256, 123С, В1А?3. Що робить Excel, якщо у складеній формулі міститься помилка?Повертає 0 як значення клітинки, Виводе повідомлення про тип помилки як значення клітинки, Виправляє помилку в формулі, Видаляє формулу з помилкою?4. Скільки існує видів адресації клітинок в Excel ?1, 2, 3, 4?5.Мінімальна складова таблиці ...Клітинка, Формула, Книга, Нема вірної відповіді?6. Вказівка на адресу клітинки в формулі називається... Посиланням, Функцією, Оператором, Ім’ям клітинки?7.Що може бути аргументом функції?Посилання, Константа, Функція, Всі варіанти вірні?8. Який оператор не входе в групу арифметичних операторів? +, -, &, /?9. Що із перерахованого не являється характеристикой клітинки?Ім’я, Адреса, Розмір, Значення?​

Информатика

Ответы

Aleksandrivanovna
Const n=5; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,k,d,s:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(4)+2;
  write(a[i,j]:4);
  end;
  writeln;
 end;
k:=0; s:=0;
for i:=1 to n do
 begin
 d:=0;
 for j:=1 to m do 
  begin
  if a[i,j]=2 then d:=d+1;
  s:=s+a[i,j];
  end;
 if d>0 then k:=k+1;
 end;
writeln('Количество неуспевающих = ',k);
writeln('Средний группы = ',s/n/m);
end.

Пример:
Оценки:
   5   3   3   5
   3   4   2   2
   4   5   5   5
   2   4   4   2
   5   2   3   3
Количество неуспевающих = 3
Средний группы = 3.55
tigran87-87
Program matrix;
var  A: array[1..10, 1..10] of integer;
i, j, mini, minj, maxi, maxj, temp: integer;
begin  Randomize;
  for i := 1 to 10 do  begin
    for j := 1 to 10 do    begin
      A[i, j] := random(100);
      write(A[i, j], ' ');
   end;
   writeln;
   end;
   mini := 1;
   minj:=1;
   maxi := 1;
   maxj:=1;
   for i := 1 to 10 do 
   for j := 1 to 10 do
    begin 
     if A[i, j] < A[mini,minj] then  begin 
      mini := i;
      minj := j;
     end;
      if A[i, j] > A[maxi,maxj] then      begin
       maxi := i;
       maxj := j;
      end;
      end;
      WriteLn('min = ',A[mini,minj],' это ',mini,' ряд ',minj,' столбца.' );
      WriteLn('max = ',A[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' );
       temp := A[maxi, maxj];
       A[maxi, maxj] := A[mini, minj];
       A[mini, minj] := temp;
       writeln;
       for i := 1 to 10 do  begin
        for j := 1 to 10 do
         write(A[i, j], ' ');
         writeln;
       end; 
       readln;
       end.
temp - переменная для временного хранения минимальных и максимальных элементов.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Для введення в клітинку числа з двома знаками після коми треба обрати …. формат даних для клітинки. Встав пропущене слово. Дробовий, Текстовий, Числовий, Загальний?2.Укажіть вірну адресу клітинки А12С, В1256, 123С, В1А?3. Що робить Excel, якщо у складеній формулі міститься помилка?Повертає 0 як значення клітинки, Виводе повідомлення про тип помилки як значення клітинки, Виправляє помилку в формулі, Видаляє формулу з помилкою?4. Скільки існує видів адресації клітинок в Excel ?1, 2, 3, 4?5.Мінімальна складова таблиці ...Клітинка, Формула, Книга, Нема вірної відповіді?6. Вказівка на адресу клітинки в формулі називається... Посиланням, Функцією, Оператором, Ім’ям клітинки?7.Що може бути аргументом функції?Посилання, Константа, Функція, Всі варіанти вірні?8. Який оператор не входе в групу арифметичних операторів? +, -, &, /?9. Що із перерахованого не являється характеристикой клітинки?Ім’я, Адреса, Розмір, Значення?​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Natalya1895
puchkovajulia
соловьев_Куркина
betepah
Валентинович133
Amulenkov
Акимцева27
yurievaalxndra55
Liliya-buc
kisuhakisa
Lolira64
gusrva3001
Chuhnin195107364
Yevgenevna
Андрееевич787