Помогите прошу очень срочно дам 59 баллов

Знания

Информатика

1 ответ:

prox783 года назад

0 0

Ничего сложного нет)

Читайте также

В массиве хранится информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого(дорогого) т

дед Митяй

Program pr1;uses crt;var a:array[1..20] of integer; i,j,max,ind :integer;begin max:=a[ 1 ]; for i:=1 to 20 do begin writeln('Введите цену(макс 20 товаров)'); readln(a[i]) end; for i :=2 to 10 do begin if a [ i ] > max then begin max:=a [ i ] ind:=i; end end; writeln('максимальная цена тавара ',a[i],'р. И ег оиндекс в массиве=',ind)end.

0 0

4 года назад

Массив n элементов (random) подсчитать сумму элементов превышающих величину T. Pascal

Agentreklam

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.

Пример
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159

0 0

3 года назад

Прочитать ещё 2 ответа

Из десятичной в двоичную перевести, напишите пожалуйста,заранее спасибо

linderenok

39 в десятично равно 100111 в двоичной,
39:2=19 остаток 1
19:2=9 остаток 1
9:2=4 остаток 1
4:2=2 остаток 0
2:2=1 остаток 0
И 1 в конце
И получается 100111 в двоичной

0 0

4 года назад

Помогите сделать в pascal abc. Дана строка.Укажите те слова, которые содержат хотя бы одну букву к.

Александр194

var
s: string;

begin
readln(s);
foreach k: string in s.Split(' ') do
if (pos('к', k) > 0) then
writeln(k);
end.

0 0

4 года назад

Что такое алгоритм ?

Oleg34

Совокупность последовательных шагов, схема действий, приводящих к желаемому результату.

0 0

4 года назад

Прочитать ещё 2 ответа