nordwokintos4
?>

Вмассиве, состоящем из 10 целых чисел, найти наибольший элемент оканчивающийся на 5 буду седечно !

Информатика

Ответы

Serafim
Const
   n = 5;
type
   mas = array[1..n] of integer
var 
   max : integer;
begin 
   max := 0;
   for i:=1 to n do 
      if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];

   writeln(max);
end.
Anshel2018534
Компьютер понадобился человеку для более быстрых вычислений, само слово compute переводится с английского как "считать". Затем компьютер использовали и используют для хранения и обработки больших данных.

Я понимаю под значением слова "универсальный" - это то, что компьютер можно использовать как для работы, так и для развлечения, общению и т.п., то есть он заменил множество вещей.

У компьютера очень много профессией, что все их не перечислить. Например, в программировании, бухучете, инженером деле и т.д.
Yelena_Irina826
Const
  Pi=3.1415926598;
var
  c:integer;
  r,a,b,h:real;
begin
   Writeln('Введите код вычисляемой величины: ');
   Writeln('1 - длина окружности');
   Writeln('2 - площадь круга');
   Writeln('3 - объем цилиндра');
   Writeln('4 - объем параллелепипеда');
   Write('-> '); Read(c);
   case c of
   1: begin
        Write('Введите радиус окружности: '); Read(r);
        Writeln('Длина окружности равна ',2*Pi*r)
      end;
   2: begin
        Write('Введите радиус круга: '); Read(r);
        Writeln('Площадь круга равна ',Pi*r*r)
      end;
   3: begin
        Write('Введите радиус и высоту цилиндра: '); Read(r,h);
        Writeln('Объем цилиндра равен ',Pi*r*r*h)
      end;
   4: begin
        Write('Введите длину, ширину и высоту параллелепипеда: '); Read(a,b,h);
        Writeln('Объем параллелепипеда равен ',a*b*h)
      end
   end
end.

Пример работы
Введите код вычисляемой величины:
1 - длина окружности
2 - площадь круга
3 - объем цилиндра
4 - объем параллелепипеда
-> 3
Введите радиус и высоту цилиндра: 5 18.3
Объем цилиндра равен 1437.2786418585

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

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

Вмассиве, состоящем из 10 целых чисел, найти наибольший элемент оканчивающийся на 5 буду седечно !
Ваше имя (никнейм)*
Email*
Комментарий*

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

yuraotradnov
semenoffufc8
yuip2008
Виктор-Богданов
olqa27
Егорова
ann-perminova2008
om805633748
fishka-sokol14
olesya-cat8601
vladburakoff5
lk1303
lsuvorova1987
kadrevproduction
stmr29