Заменить 3-й элемент одномерного массива на количество отрицательных элементов
Тимонди
3
05.05.2019 14:01
0
Другие вопросы по теме Информатика
ленок209
03.10.2019 00:20
Walentinawella12
03.10.2019 00:20
Ulyana150806
03.10.2019 00:20
egorikmail826
12.02.2021 12:01
alkofner
27.10.2020 08:33
Виктория89873436940
08.06.2019 16:00
21dasha21
08.06.2019 16:00
бростас
08.06.2019 16:00
Популярные вопросы
- Ребята я буду необьятно благодарен нужен...
3 - Запишіть натуральні числа, щодорівнюють.- 99, 80 - 39, 425...
3 - І. Оқылым. Мәтінді түсініп оқы. Жолаушы – белгілі бір мақсатпен жол...
3 -  Узнать ха как менялся характер у Алёша в сказке чёрная курица...
3 - 6. Два сябры-карэспандэнты выконвалі заданне рэдакцыі ў адным горадзе,...
3 - Комектесип жибересиздер ме...
1 - диалог курау по этим словам:Руксат етиниз,мархабат етиниз,мумкин...
1 - Ребят вы последняя надежда...
1 - Которая из дробей равна данной дроби 15−x8?...
1 - Сумма двух чисел равна 33 умноженным на три. И если одно из чисел...
3
Const n=10;
Var k, i:integer ;
A:array [1..n]of Integer ;
Begin
K:=0;
For i:=1 to N do begin
A[i]:=random(20)-10;
Write(' A[', i, ']=', a[i]) ;
If a[i]<0 then k:=k+1;
End;
Writeln ;
A[3]:=k;
For i:=1 to N do write(' A[', i, ']=', a[i]) ;
End.