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

Найти среднее арифметическое отрицательных элементов массива в паскале. распишите .

👇
Ответ:
Yunusovaliana20
Yunusovaliana20
03.09.2020

#include <sosnick.y>

begin

goto (> massive);

goto (< massive);

while funkation (<0) do

massive:= sosnicky (goto > type array);

writeln (massive);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4,6(48 оценок)
Открыть все ответы
Ответ:
huifufjvJf
huifufjvJf
03.09.2020
Const
  gl = 'аеёиоуыэюя';

var
  s: string;
  f: array[1..10] of boolean;
  i, m: integer;

begin
  Write('Введите фразу: '); Readln(s);
  m := Pos(' ', s);
  if m = 0 then Writeln('В строке отсутствуют пробелы')
  else begin
    for i := 1 to 10 do f[i] := False;
    for i := m + 1 to length(s) do
      case s[i] of
        'А', 'а': f[1] := True;
        'Е', 'е': f[2] := True;
        'Ё', 'ё': f[3] := True;
        'И', 'и': f[4] := True;
        'О', 'о': f[5] := True;
        'У', 'у': f[6] := True;
        'Ы', 'ы': f[7] := True;
        'Э', 'э': f[8] := True;
        'Ю', 'ю': f[9] := True;
        'Я', 'я': f[10] := True
      end;
    Write('Найдены гласные: ');
    for i := 1 to 10 do
      if f[i] then Write(gl[i], ' ');
    Writeln
  end
end.

Тестовое решение:
Введите фразу: Это проверочная фраза "Мама мыла раму". Конец теста.
Найдены гласные: а е о у ы я

В Pascal.ABC можно написать и короче:
const
  gl = 'аеёиоуыэюя';

var
  s: string;
  f: array[1..10] of boolean;
  i, m, p: integer;

begin
  Write('Введите фразу: '); Readln(s);
  m := Pos(' ', s);
  if m = 0 then Writeln('В строке отсутствуют пробелы')
  else begin
    for i := 1 to 10 do f[i] := False;
    s := LowerCase(s); { перекодировать к нижнему регистру }
    for i := m + 1 to length(s) do
    begin
      p := Pos(s[i], gl);
      if p > 0 then f[p] := True
    end;
    Write('Найдены гласные: ');
    for i := 1 to 10 do
      if f[i] then Write(gl[i], ' ');
    Writeln
  end
end.
4,6(10 оценок)
Ответ:
gameplay135
gameplay135
03.09.2020
Var a,b,c:integer;
begin
writeln('Введите возраст Светланы: ');
readln(a);
writeln('Введите возраст Карины: ');
readln(b);
writeln('Введите возраст Марины: ');
readln(c);
if ((a>b) and (a>c)) then writeln('Светлана: ', a)
else if ((b>c) and (b>a)) then writeln('Карина: ', b)
else if ((c>a) and (c>b)) then writeln('Марина: ', c);
if ((a>c) and (c>b)) then writeln('Марина: ', c)
else if((c>b) and (b>a)) then writeln('Карина: ', b)
else if ((b>a) and (a>c)) then writeln('Светлана: ', a);
if ((a<b) and (a<c)) then writeln('Светлана: ', a)
else if ((b<a) and (b<c)) then writeln('Карина: ', b)
else if ((c<a) and (c<b)) then writeln('Марина: ', c);
end.
4,5(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ