daridolgova
22.01.2023 07:06

Запишите операторы ввода значений
следующих переменных:
а) А., А2, А3, А4;
б) х, у

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
artemchurkin
31.01.2023 18:01

1. Заповніть словничок.

Проекти для виконавців складаються у середовищі Скретч. Виконавці, образи, сцена – це  програмні об'єкти середовища  Скретч. У Скретч виконавців називають спрайтами. Усі  спрайти мають властивості: імя, положення на сцені, розміри,  колір костюма та інш. Кожна із цих властивостей має своє  значення. Переглянути значення властивостей цього об’єкта  можна в розділі інформація. Сцена має такі властивості:  480 на 360 кроків виконавця і тло Тло можна змінювати використавши кнопики на панелі інструментів.

2. Запишіть вставлення об’єкта.

Створити новий об'єкт можна кількома

- обрати готовий об’єкт із бібліотеки спрайтів;

- намалювати в графічному об’єкті;

- вставити з файла;

- сфотографувати камерою підключеною до комп’ютера.

Над об'єктами можна виконувати різні дії: дублювати, вилучати, зберегти, сховати. Під час виконання програмного проекту зі спрайтами можуть бути пов’язані події, опрацювання яких призведе до змінення значень властивостей об’єктів.  

0,0(0 оценок)
Ответ:
losp
30.08.2020 02:31
{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
    for i:=1 to n do
        begin
             writeln;
                 for j:=1 to n do
                      begin
                            a[i,j]:=random(100)-50;
                             write(a[i,j]:4);
                                  
                      end;
         end;
for i:=1 to n do
  if a[i,i]>0 then
        begin
           s:=s+a[i,i];
           k:=k+1;
       end;
writeln;
 if   k<>0 then
      writeln('SR=', s/k)
 else
       writeln('Net <0');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота