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

Запросить и ввести количество членов линейного массива не более 50 затем сам массив действительных чисел вывести получившийся массив и вывести номера элементов равных 7,5

👇
Ответ:
Killerman68
Killerman68
24.08.2020
Program _massiv; 
var  A:array[1..50] of real; 
 i,c:integer; 
begin 
writeln('Задайте количество членов линейного массива'); 
readln(c); 
for i:=1 to c do begin 
writeln('Введите',' ',i,' элемент массива'); 
readln(A[i]); 
 end; 
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]); 
for i:=1 to c do 
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5  ',i) 
end.  
4,7(32 оценок)
Открыть все ответы
Ответ:
pinelopa2005
pinelopa2005
24.08.2020
У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра
4,5(78 оценок)
Ответ:
Polllina2209
Polllina2209
24.08.2020
1)
VAR A: integer; B: string;BEGINB:=('Число отрицательно.');READLN(A);IF A>0 THENB:=('Число положительное.');writeln(B);end.
2)
VAR A,B: integer;BEGINREADLN(A);READLN(B);WRITELN('1 число: ',A);WRITELN('2 число: ',B);END
3)
VAR a,b,c,d,e,t,y: integer;BEGINreadln(a);readln(b);readln(c);readln(d);readln(e);t:=a+b+c+d+e;y:=a*b*c*d*e;writeln(t);writeln(y);END.
4)
var a,b,c: integer;beginwrite('1 число: ');readln(a);write('2 число: ');readln(b);write('3 число: ');readln(c);write('Наибольшое из введёных чисел: ');if (a>b) and (a>c) thenwriteln(a)elseif (b>a) and (b>c) thenwriteln(b)elsewriteln(c);end.
Вообщем вот. Программки "Фигня", если более сложные нужно написать, то напиши сюда.
4,4(7 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ