М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
misskuleshova
misskuleshova
22.01.2020 02:44 •  Информатика

•на паскале.дан целочисленный массив.удалить из массива все одинаковые элементы оставив их последние вхождения.

👇
Ответ:
anuta07121971
anuta07121971
22.01.2020
Const n=30;
var a: array[1..n] of integer;
    tek,k,i,j: integer;
begin
{ заполнение массива и вывод на экран } 
 for j:=1 to n do 
 begin
     a[j]:=Random(20);
     write(a[j],' ');   
     if (j mod 10 = 0) then writeln; 
 end;
 writeln;
{ цикл обработки массива } 
 for i:=1 to n do 
 begin
    tek:=a[i];
    k:=i;
{ просмотр на повторные }
    for j:=i+1 to n do 
    begin
      if (a[j]=tek) then
      begin
        a[k]:=0;
        k:=j;
      end;
    end;
  end; { конец обработки массива }
{ вывод итогового массива на экран }
  for i:=1 to n do
  begin 
    write(a[i],' ');
    if (i mod 10 = 0) then writeln;
  end;
end.
4,6(30 оценок)
Открыть все ответы
Ответ:
ShipunovaDaria
ShipunovaDaria
22.01.2020

Объяснение нужны ответы Какие из записей являются верно записанными формулами в электронных таблицах?

1)== C2 + C8

2)?C1 + D1 * D2

3)D100 * D1 =

4)!= A1 + B5

5)=F1 + A1 * A2

6)!!B1 - C3

№2

Прикрепил фото с заданием

№3

В Openoffice.org Calc создали таблицу, заполнив ее ячейки так, как показано на рисунке. Какое число будет находиться в ячейке C1 после того, как будет нажата клавиша Enter?

Комментарий. Если у вас русскоязычная версия электронных таблиц, нужно считать, что вместо IF записано ЕСЛИ.

№4

В электронную таблицу занесли результаты тестирования учащихся по русскому языку и математике. На рисунке приведены первые строки получившейся таблицы.

В столбце A указаны фамилия и имя учащегося; в столбце B – район города, в котором расположена школа учащегося; в столбцах C, D – баллы, полученные соответственно по русскому языку и математике. По каждому предмету можно было набрать от 0 до 100 баллов.

Всего в электронную таблицу были занесены данные по 263 учащимся. Порядок записей в таблице произвольный. Откройте файл с данной электронной таблицей: /uploads/inner_file/file/9768/table2.xls. На основании данных, содержащихся в этой таблице, ответьте на во чему равна наименьшая сумма баллов по двум предметам среди учащихся Заречного района?

№5

Прикрепил фото с заданием

№7

прикрепил фото с заданием

4,4(59 оценок)
Ответ:
Nastenka0003
Nastenka0003
22.01.2020

===== PascalABC.NET =====

begin

 var СписокСлов := ReadlnString('Список слов через пробел:').ToWords;

 var ИсходныйСловарь := new Dictionary<char, integer>;

 var РабочийСловарь := new Dictionary<char, integer>;

 foreach var Символ in ReadlnString('Слово:') do

   ИсходныйСловарь[Символ] := ИсходныйСловарь.Get(Символ) + 1;

 var СтрокаВывода: string;

 foreach var Слово in СписокСлов do

 begin  

   foreach var Символ in Слово do

     РабочийСловарь[Символ] := РабочийСловарь.Get(Символ) + 1;

   var МожноПостроитьСлово := True;

   foreach var ЭлементРабочегоСловаря in РабочийСловарь do

   begin

     var Ключ := ЭлементРабочегоСловаря.Key;

     var ПределПовторовБуквы: integer;

     if ИсходныйСловарь.TryGetValue(Ключ, ПределПовторовБуквы) then

     begin  

       if ЭлементРабочегоСловаря.Value > ПределПовторовБуквы then

       begin

         МожноПостроитьСлово := False;

         break

       end

     end

     else

     begin

       МожноПостроитьСлово := False;

       break

     end  

   end;  

   if МожноПостроитьСлово then

   begin

     if СтрокаВывода <> '' then

       СтрокаВывода += ', ';

     СтрокаВывода += Слово

   end;  

   РабочийСловарь.Clear;

 end;

 Println(СтрокаВывода)

end.


Реализовать любом языке из списка: си/c++/c#/pascal/basic/javascript/fasm. задано для развлечения =)
4,7(52 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ